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A L'ORDINATEUR INDIVIDUEL, les rédacteurs, les conseillers techniques, les correspondants à 
l'étranger, l'équipe entière se mobilise pour vous fournir tous les mois une information 
complète et de qualité. Le monde de la micro bouge : L'O.L. teste pour vous les micros et 
logiciels qui apparaissent sur le marché. Il vous dit lesquels choisir et pourquoi. Vous êtes déjà 
équipé et vous souhaitez tirer le maximum de votre machine ? Les spécialistes de L'O.I. vous livrent 
conseils, programmes inédits et astuces d'utilisation. Lisez chaque mois L'ORDINATEUR INDIVIDUEL. 
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Le Spécialiste de la Micro TURBO 
vous propose 


Le Macintosh Plus 
et son TURBO DISK 


Caractéristiques 
Mac TURBO DISK 


Caractéristiques 
Macintosh plus 


- Disque Dur 20 Méga octets 

- Très haute vitesse d'accès (le 
plus rapide du marché) 

- Haute fiabilité 

- Système de Suspension 
Breveté 

- Très faible consommation 

- Démarrage automatique sans 
disquette de boot 

- Partitionné en nombre 


- Micro processeur 68000 

- 128 K ROM intégrant des 
fonctions graphiques rapides 
et la gestion de bureau 

- Clavier avec bloc numérique 

et touches curseur 

- RAM 1 Méga octet 
extensible à 4 Mégas 

- Lecteur de disquette 
800 K intégré 


- Interface SCSI permettant 
de relier des périphériques 
puissants 

- Système d'exploitation 5.1 


programmable de volumes 


- Protection de chaque volume 


par mot de passe program- 
mable 


avec architecture supérieure - Garantie 1 an 


et mémoire cache 





A) Vous êtes équipé d'un Macintosh 


IEF vous transforme votre Macintosh pour seulement : 

- 4.500 F HAT (si vous êtes équipe d'un 512 K d'origine Apple) 

- 6.500 F HT (si vous êtes équipé d'un 128 K d'origine ou étendu) 

- Pour ces prix, IEF vous change la plaque mère, le lecteur de disquettes et le clavier. 
- La transformation est garantie 1 an par Apple. 


- Ces prix ne sont valables que pendant une durée limitée, réservez dès aujourd'hui votre transformation 
- De plus, si vous achetez cette transformation, LATE EeRELETT Le LRU 
B) Vous n'êtes pas encore équipé d'un Macintosh 


IEF vous offre Macintosh Plus exceptionnellement pour 24.900 F HT 
ou mieux encore la Promotion spéciale IEF de lancement : 








IEF propose des conditions spéciales pour les Grands Comptes et les établissements d'enseignement 
Si vous voulez profiter d'une de ces offres, renvoyez vite le coupon réponse ci-dessous 
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Éditorial 


En tant qu'éditeur consciencieux, Pom's souffre depuis déjà quelque temps de la richesse des versions de 
l'Apple IT : quand nous testons un programme en vue de sa publication, nous essayons de voir s'il 
fonctionne sur Apple IT Plus, Ile, Ile modifié IIc ; multiplié par DOS et ProDOS, cela donne huit 
combinaisons... Heureusement que nous avons quelques idées sur ce qui fait qu'un programme a des 
chances d'être compatible ou non ! 


Jusqu'à présent, ces pénibles recherches nous étaient à peu près évitées avec le Macintosh, qui ne 
connaissait que les versions 128K et 512K0o. Hélas, l'horizon semble se couvrir de nuages : se rajoute à 
tout cela le MacPlus, et on entend déjà parler du Mac 512Ko avec lecteur de 800Ko... Dans ce numéro, 
nous aidons les utilisateurs présents et futurs du MacPlus en leur donnant des indications sur ces irritants 
problèmes de compatibilité. 


Chose promise, hélas. dès aujourd'hui nous devons augmenter le prix des disquettes 5,25 pouces mais 
nous osons ne pas en rougir, vous connaissiez le prix de 55,00 F depuis 1983. 


Voici dans ces pages - que vous trouverez, nous l'espérons, bien remplies - un beau programme CPIM : 
un disque virtuel pour les heureux possesseurs de carte 80 colonnes étendue. Si l'on en croit les bulletins 
de sondage que vous nous avez renvoyés nombreux, vous réserverez bon accueil au jeu “Snake” (ou 
‘comment cultiver ses réflexes...” ). PostScript fait son entrée dans ce numéro ; rares sont ceux qui ont la 
disposition d'une LaserWriter mais l'aspect “Forth” de la chose ne devrait pas laisser indifférent. 


Pas moins de 1280 points par ligne : c'est la résolution, souvent inexploitée, de votre imprimante Apple ; 
il n'en sera plus ainsi, car nous vous proposons un programme qui redonnera à vos courbes 
mathématiques la finesse que vous souhaitiez obtenir. Toujours au chapitre des imprimantes, c'est à la 
GPS500 que nous donnons un programme de Hard-Copy. En plus des rubriques habituelles, vous 
découvrirez un utilitaire Pascal, une sauvegarde DOS avec numéros de version, l'art et la manière de 


‘tokeniser' les chaînes, et enfin Datheur, un utilitaire dont la valeur pédagogique n'échappera pas. 


Les numéros 22 et 23 proposaient des “Composeurs téléphoniques” pour Apple [| +, [le et [lc ; il n'y avait 
aucune raison pour cela s'arrête là... Les utilisateurs du Macintosh trouverons donc dans ce numéro le 
schéma de cette petite ‘interface’, ainsi qu'un programme Basic permettant son utilisation immédiate. 
Dans un autre registre, plus pointu certes, vous trouverez dans le “cahier Mac” deux routines en 
assembleur propres à faciliter le travail du programmeur. A noter que le respect des notions exposées 
dans cet article permettrait à nombre de produits commerciaux de ressembler à des programmes 
‘Macintosh … Il en va de même pour un autre article, baptisé “Le bundle et le finder”. 


Nous vous donnons rendez-vous à cette grande fête annuelle qu'est Apple Expo ; Pom's vous y 
accueillera avec plaisir. N'oubliez pas d'emporter ce numéro : vous entrerez à demi-tarif ! 


Hervé Thiriez 


Ont collaboré à ce numéro : Alexandre Avrane, Jean-Luc Bazanegue, André Brunel, Pascal Cantot, Serge Cattan, 
Alexandre Duback, Bruno Fénard, Jean-Michel Gourévitch, Olivier Herz, Philippe Krepper, 
Philippe Magnien, Gérard Michel, Jean-Paul Payen, Christian Piard, Jean-François 
Rabasse, Jean-Marc Roulon, Marianne Sutz, Hervé Thiriez, D. Venot, G. Zwingelstein. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Éditions MEV - 12, rue d'Anjou - 78000 Versailles. Tél. : (1) 39.51.24.43. 

Publicité : Éditions MEV. 

Diffusion : N.M.P.P. 

Impression : Rosay - 47, avenue de Paris - 94300 Vincennes. Tél. : (1) 43.28.18.63. 


Pom's est une revue indépendante non rattachée à Apple Computer, Inc. ni à Apple Computer France S.A.R.L. Apple, le logo 
Apple, Mac et le logo Macintosh sont des marques déposées d'Apple Computer, Inc. 
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Un disque virtuel sous CP 


e RAMdisk ou disque 
virtuel, représente le 
mode d'utilisation le plus 
souple de cartes 
d'extension mémoire. Il offre les 
services d'un disque de capacité 
réduite mais de coût nul et de 
vitesse d'accès très élevée. 


De tels utilitaires existent sur 
Apple, pour fonctionner sous 
DOS 3.3 ou CP/M, proposés par 
les fabricants d'extensions 
mémoire (Legend 128 KDE, 
Titan etc.). Dans le cas particulier 
de l'extension 64Ko de l'Apple 
[le (carte 80 colones étendue), un 
RAMdisk est implanté par 
ProDOS, d'autres sont 
disponibles pour le DOS 3.3 (Cf 
Pom's 14 par exemple). Le 
programme présenté ici vient 
compléter la collection en 
proposant un RAMdisk de 60Ko 
sous CP/M 2.23, implanté dans 
la RAM auxiliaire. (On peut 
ajouter que l'utilisation d'un 
RAMdisk sous CP/M est très 
agréable, ce système d'exploi- 
tation passant presque autant de 
temps à faire tourner ses disques 
qu'à se mettre à la disposition de 
l'utilisateur. 


+ La programmation en langage 
machine avec le cycle Éditeur, 
Assembleur avec son fichier 
source, son fichier objet, son 
fichier listing, puis Debuger et 
re-Éditeur, est accélérée de façon 
sensible. 

+ Le basic Microsoft offre une 
gestion des fichiers à accès direct 
très puissante, qui devient très 
efficace avec les fichiers en RAM 
auxiliaire. 

+ Enfin la mise en œuvre de 
CP/M est moins acrobatique pour 
ceux qui ne possèdent qu'un seul 
lecteur). 


Configuration 
requise 


Un Apple //e avec sa carte 80 
colonnes étendue, et une carte 


Z80 avec CP/M 2.23. Attention, 
Microsoft livre son CP/M en 
version 44Ko (fonctionnement 
sur un Apple sans carte langage), 
reconfigurable en 60Ko avec 
l'utilitaire CPM60. 

Ce programme est interfacé avec 
le CP/M 60Ko (configuration 
normale sur un Apple //e.) 
D'autre part le programme est 
prévu pour un système avec 1 ou 
2 lecteurs de disquettes 
maximum. Pour un système à 3 
ou 4 drives, quelques petites 
modifications sont indiquées plus 
loin. 

NB : Il existe depuis peu une 
extension Z80 CP/M pour 
l'Apple //c. Ce programme 
devrait pouvoir être adapté. 
L'essai n'a pas été fait. 


Création du 
programme 


Avec un assembleur Z80, éditer 
puis assembler le programme 
source. Le programme objet est 
un fichier CP/M .COM, donc 
l'adresse d'implantation est 
0100H (début du TPA). 

Sans assembleur, entrer le code 
objet hexadécimal en utilisant 
DDT, à partir de l'adresse 0100. 
(Il est indispensable de vérifier 
très soigneusement le code 
frappé. Ce programme manipule 
les commutateurs des pages 
mémoire et modifie les routines 
d'accès disque de CP/M. Des 
erreurs de frappe peuvent 
entrainer des effets grandioses à 
l'exécution. Si vous n'êtes pas 
sûr de votre virtuosité au clavier, 
il n'est pas inutile de faire les 
premiers essais avec une 
disquette copie !) 

Sauvegarder le code par : 

SAVE 3 RAMdisk.COM 


Utilisation 


Elle est très simple. Au niveau 
commande de CP/M, frapper: 


J-F Rabasse 


RAMdisk <return> 


Le programme s'exécute puis 
affiche le message 


M: en service..... 
et retourne au CCP. 


Le disque virtuel est prêt. Il est 
repéré par M (Mémoire). On y 
accède par M: . On peut y 
transférer les fichiers et utilitaires 
désirés par PIP. Pour des 
utilisations régulières il est 
pratique de créer un fichier Batch, 
comportant l'appel de RAMdisk 
et tous les transferts souhaités 
(PIP, ED, DDT, etc.) lancé par 
une commande SUBMIT. 


Une remarque : il peut arriver, en 
cours de travail, un "plantage" (si 
si !), qui oblige à rebooter 
complètement CP/M et donc à 
devoir réimplanter le RAMdisk. 
Dans ce cas, le programme 
détecte la présence du disque 
virtuel en Ram auxiliaire et 
affiche le message suivant : 


Un RAMdisk existe.... 
faut-il l'annuler (O/N)? 


En tapant N, on a alors la 
possibilité de ne pas réinitialiser 
la RAM auxiliaire et donc de 
pouvoir récupérer ses fichiers de 
travail qui, conformément à la loi 
de Murphy, n'étaient pas 
sauvegardés sur une vraie 
disquette lors du plantage. 
Attention, ce contrôle consiste à 
vérifier la présence du code de 
gestion du RAMdisk. Si un 
plantage sévère a eu lieu lors de la 
mise au point d'une routine qui 
sévit en RAM auxiliaire, 
l'intégrité 

des fichiers n'est pas assurée. Si, 
en revanche, on souhaite 
redémarrer sur des bases 
nouvelles il suffit de répondre O à 
u question. (On peut aussi taper 

Ÿ 


Fonctionnement 


Avant de détailler le 
fonctionnement de RAMdisk, il 
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est utile de rappeler le 
fonctionnement de CP/M et la 
gestion des disques. 

CP/M est constitué de trois 
grandes parties : 

+ le CCP (Console Command 
Processor) qui gère toutes les 
commandes de l'utilisateur, en 
provenance du clavier. 


+ le BDOS (Basic Disk 
Operating System) qui est 
l'interface entre les programmes 
d'application et le système 
d'exploitation, et qui réalise 
toutes les fonctions d'entrées/ 
sorties, accès aux fichiers 
disques, gestion des 
périphériques. Ces fonctions au 
nombre de 41 sont documentées 
dans les ouvrages traitant de 
CP/M. L'accès au BDOS se fait 
par l'adresse système 0005, avec 
le code de la fonction désirée 
dans le registre C du Z80 ; 


* Le BIOS (Basic Input Output 
System) qui est l'interface entre le 
BDOS et le calculateur sur lequel 
est implanté CP/M. Ce BIOS est 
spécifique à chaque machine, 
c'est lui qui assure la gestion du 
"Hard". C'est donc en pratique 
au niveau du BIOS que se feront 
toutes les modifications ou 
adaptations de CP/M. 


Le BDOS accède au BIOS par 
l'intermédiaire d'une table de 
sauts, qui rassemble les fonctions 
élémentaires d'entrée-sortie. Cette 
table a la structure standard 
suivante : 


CBOOT 
WBOOT 
CONSTS 
CONSIN 
CONSOUT ; sortie console 


entrée console 


LSTOUT ;sortie imprimante 


FA00: 00 NOP 

FA01: 00 NOP 

FAO2: 00 NOP 

FA03: C3 B8 FA JP 0FAB8H 
FA06: C3 10 FB JP 0FB10H 
FA09: C3 1A FB JP 0FB1AH 
FAOC: C3 4D FB JP 0FB4DH 
FAOF: C3 70 FB JP 0FB70H 
FA12: C3 7F FB JP 0FB7FH 
FA15: C3 91 FB JP 0FB91H 
FA18: C3 75 FE JP OFE75H 
FA1B: C3 97 FE JP OFE 97H 
FAlE: C3 80 FE JP OFE80H 
FA21: C3 F4 FB JP OFBF4H 
FA24: C3 F9 FB JP OFBF 9H 
FA27: C3 C6 FE JP OFEC6H 
FA2A: C3 CC FE JP OFECCH 
A noter que la fonction 


ColdBOOT n'est pas implantée 
puisque le démarrage à froid n'est 
pas assuré par CP/M et le Z80, 
Se par la ROM Apple C6 et le 


CP/M gère les disques à partir 
d'une adaptation de la routine 
Apple RWTS (implantée dans le 
Bank 1 à l'adresse $D420 ou 
0B420H), et d'un buffer de 256 
octets situé en OF800H. Les 
routines de lecture/écriture gèrent 
ce buffer pour adapter les 
demandes BDOS de secteurs 128 
octets, en accès disque par 
secteurs de 256 octets. La 
communication des paramètres se 
fait par des tables. Une table 
située en OF3E0-0F3EB 
(adresses 6502 $3E0-$3EB) 
contient les paramètres de 
RWTS : numéros de piste, de 
secteur, de slot, de drive, code 

erreur, ancien slot, ancien 

drive, etc. 


sinitialisation à froid 
sinitialisation à chaud 
;sétat de la console E/S 


Une autre table située 
en OFEES8 - OFEFF, 
contient tous les 
paramètres néces- 


OFEEA numéro de la piste 
demandée 

OFEEB numéro du secteur 
demandé 

OFEFA/ 

OFEFB adresse du buffer à lire 
ou écrire 

OFEEF numéro du lecteur en 
cours 

OF3EA code erreur au retour de 
RWTS 


Modification des 
routines BIOS 


Certaines fonctions n'ont pas a 
être modifiées. TRKO, SETTRK, 
SETSECT et SETDMA se 
bornent à recopier dans la table de 
paramètres la valeur numérique 
adéquate. 

La fonction SELDSK (implantée 
de OFE97 à OFECS) est appelée 
avec, dans le registre C, le 
numéro du lecteur désiré (0 pour 
A:, 1 pour B: etc.). Cette routine 
vérifie que le numéro d'appel est 
valide (l'adresse 0F3B8 contient 
le nombre de lecteurs présents, 
détectés lors du Boot), puis 
retourne dans le registre HL 
l'adresse de la table de paramètres 
du lecteur. Ces tables de 
paramètres, longues de 16 octets 
sont situés en OFA33, OFA43, 
OFAS53, 0FA63, pour les lecteurs 
A:,B:, C:et D: 

La modification de SELDSK 
consiste à tester si le numéro du 
lecteur appelé correspond au 
RAMdisk reperé par M: soit un 
numéro 12. Si oui, on recopie le 
numéro à l'adresse OFEEF, et on 
retourne dans HL l'adresse des 
paramètres RAMdisk. (cette table 
a été installée en OFA53, zone 
libre sur un système à deux 
drives). Si un autre lecteur est 


JP 
JP 
JP 
JP 
JP 
JP £ ‘ 

; ires au BD: appelé, on rend la main à la 
JP PTPUNCH ;sortie perforateur sa peau ne routine SELDSK standard. 
JP PTREAD ;lecture ruban perforé ; 
JP  TRKO remise à 0 tête de lecture disque peus la Les fonctions READ et WRITE 
JP SELDRV ;sélection d'un lecteur de disques  B€Stion du commutent le Bank 1 de la ram 
JP SETTRK ;choix de la piste disque. Apple (où sont situées toutes les 
JP SETSECT ;choix du secteur .  Toutines d'accès disque) et 
JP SETDMA ;adresse de transfert Ceux qui sautent à la routine de gestion de 
JP READ  ;lecture d'un secteur sont indis- RWTS implantée de OB247 à 
JP WRITE ;écriture d'un secteur pensables 0B358, point d'entrée lecture en 

à la bonne  0B247, point d'entrée écriture en 

Sur Apple, sous CP/M 2.23 marche de  OB257. 
60K0, cette table est implantée de RAMdisk La modification consiste à tester 
OFA00 à OFA2C : sont : si le numéro du lecteur en cours 
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—————— 








(OFEEF) est celui du RAMdisk, 
et le cas échéant à détourner vers 
les routines de lecture/écriture 
RAMdisk. En sortie de ces 
routines, on copiera dans OF3EA, 
un 0 ou un code d'erreur eventuel 
(codes d'erreurs de RWTS). 


Remarques concernant 
la table des paramètres 
disque 

Pour chaque lecteur de disques, 
CP/M utilise une table de 16 
octets contenant les adresses de 
zones de travail. Cette table 
comporte 8 octets réservés à 
CP/M, l'adresse d'un buffer de 
128 octets pour le catalogue des 
disques (cette adresse est la même 
pour tous les lecteurs : OFEFD), 
l'adresse des paramètres 
d'organisation de la disquette, et 
les adresses de deux autres 
buffers de 12 et 18 octets 
respectivement. Le CP/M Apple 
peut gérer jusqu'à 4 disques A, 
B, C, D. Microsoft a prévu 
l'implantation de 4 tables, de 
0FA33 à OFA72, et tous les 
buffers de travail nécessaires. Si, 
par exemple, on n'utilise que 2 
lecteurs, on peut "emprunter" la 
table prévue pour le drive C: 
0FAS3. 

La seule modification à apporter 
concerne l'adresse de la table 
d'organisation de la disquette 
(11leme et 12eme octets). Les 
lecteurs Apple étant tous 
identiques, une seule table est 
prévue pour les 4 lecteurs 
possibles. Cette table, longue de 
15 octets, est implantée en 
0OFA73. Pour le RAMdisk, il est 
nécessaire de créer une autre 
table, identique à deux octets 
près : les 6 et 7èmes qui 
contiennent la taille du disque 
sous forme du plus haut numéro 
de bloc. Avec un RAMdisk de 
60Ko, donc 60 blocs, on devra 
are 59 dans cette table soit 3B 


La table d'organisation de la 
disquette peut être placée en 
0FA63 toujours si l'on n'utilise 
que 2 lecteurs. En revanche, sur 
un Apple équipé de 4 lecteurs, il 
faudra créer et placer les deux 
tables de paramètres et tous les 
buffers nécessaires. 


Tables des paramètres lecteurs de CP/M 2.23 60k : 


FA33 00 00 00 00 00 00 00 00 FD FE 73 FA C5 FF 7D FF 
FA43 00 00 00 00 00 00 00 00 FD FE 73 FA D1 FF 8F FF 
FA53 00 00 00 00 00 00 00 00 FD FE 73 FA DD FF A1 FF 
FA63 00 00 00 00 00 00 00 00 FD FE 73 FA E9 FF B3 FF 


Table des paramètres d'organisation des disquettes : 


FA73 20 00 03 07 00 8B 00 2F 00 CO 00 OC 00 03 00 


Fonctionnement du 
RAMdisk 


Afin de limiter la place occupée 
en mémoire centrale, la majorité 
du code de gestion du RAMdisk 
est implantée en Ram auxiliaire. 
Seulement une cinquantaine 
d'octets sont en mémoire 
principale. Ils ont été placés de 
0F100 à 0F130, zone inutilisée 
par CP/M car c'est la pile du 
6502. Le 6502 n'étant utilisé que 
pour gérer des routines 
d'entrées-sorties, il est peut 
probable qu'il remplisse sa pile si 
haut. 


Le programme comporte une 
partie préparation de CP/M, et la 
partie gestion du RAMdisk, qui 
reste en machine. 


Lorsqu'on lance le programme, il 
commence par comparer les 256 
premiers octets du code de 
gestion avec le contenu de la ram 
auxiliaire de 0F100 à OF1FF. En 
cas d'identité, un pseudo disque 
est censé exister et la Ram 
auxiliaire n'est pas réinitialisée. 
Seul CP/M est reconfiguré. 


Le programme se recopie ensuite 
en Ram auxiliaire et commute la 
Ram, pour transferer l'exécution 
en Ram auxiliaire. Ceci permet la 
mise en place du code de gestion 
du RAMdisk (0F100 à OF2C7), 
et "l'initialisation" de la piste 3 
(Catalogue CP/M) en remplissant 
de codes ES. 


Le programme revient ensuite en 
Ram principale. L'accès au code 
de gestion RAMdisk est fait en 
recopiant le début du code 
(0F100 à OF10D) en Ram 
principale. Ce tronçon comporte 
les "portes" d'entrées-sorties et la 
commutation de mémoire. 


Pour configurer CP/M il reste à 
installer les trois routines 
modifiées READ, WRITE € 
SELDSK, de OF10E à OF130, = 
modifier les adresses du vecte=s 
BIOS afin de pointer ces 
routines. 

Enfin on installe la table des 
paramètres de la pseudo disquette 
en OFA63, et on pointe cette table 
dans. le bloc CP/M réservé au 
pseudo disque, installé en OFA53 
(à la place d'un lecteur C:). 

Le programme affiche un 
message et rend la main au CCP. 


Code de gestion du 
RAMdisk 


La routine de lecture écriture du 
pseudo disque comporte quatre 
phases : 


Récupération des paramètres de 
l'appel disque et transfert de 
l'exécution en Ram auxiliaire, 
puis création d'une pile en Ram 
auxiliaire pour le Z80. 


Calcul d'une adresse mémoire 
correspondant aux numéros de 
piste et secteur. 

Les pistes 0,1 … OD sont placées 
en 00000,01000 …. 0D000, et la 
piste OE en OD000 Bank 1. Le 
début théorique d'une disquette 
CP/M étant la piste du catalogue, 
et celui ci étant placé en piste 3, il 
faut transformer les numéros de 
pistes 0F,10,11 appelés par le 
BDOS en 0,1,2. En cas d'appel 
d'un numéro supérieur, le 
programme retourne à CP/M avec 
le code 040 dans OF3EA (code 
1/0 Error de RWTS). 


Transfert du secteur. 

Le transfert est délicat à cause de 
la commutation des pages de 
mémoire. Le secteur RAMdisk 
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peut se trouver dans la Ram 
48Ko ou dans la mémoire à Bank 
commuté, dans le Bank 1 ou le 
Bank 2. Le buffer CP/M peut être 
dans la Ram 48Ko ou la mémoire 
à Bank commuté, ou à cheval sur 
les deux. (C'est le cas par 
exemple avec le logiciel ED.COM 
qui charge ses fichiers en haut du 
TPA, sous l'adresse 0ODCO06. On 
a donc en général un secteur 
chargé de OAF86 à 0B006). 
Certains transferts doivent se 
faire en deux temps, avec transit 
par un secteur temporaire situé en 
0F300. 

Pour obtenir un fonctionnement 


très rapide, on a choisi de faire 
les transferts par bloc complet en 
utilisant la puissante instruction 
LDIR du Z80, à l'aide de huit 
routines de transfert spécifiques à 
chaque cas, qui assurent le calcul 
des adresses et les commutateurs 
de mémoire à actionner. 


Le résultat est un code plus long 
qu'avec une routine unique de 
transfert-commutation octet par 
octet, mais le temps d'accès se 
trouve réduit dans un rapport 
quatre. 

Le transfert proprement dit est 
effectué par deux routines COPI1 





et COPI2 situées l'une dans la 
mémoire 48Ko l'autre dans la 
mémoire à Bank. Ces routines 
sont indépendantes de l'état des 
commutateurs mémoire puisque 
tous les paramètres nécessaires - 
adresses de transfert et 
commutateurs à actionner - sont 
passés dans les registres 16 bits 
ie BC, DE, HL' ,BC' ,DE' du 
Z80. 


Retour en Ram principale et au 


BDOS. 
G 





Source ‘RAMDISK.TEXT” 


TITLE  RAMDISK 
PLLLELELLLEELELSLLELELELELELELELSS,S SSL SSL SSL SSL SSL LS 
FH * 
;* DISQUE VIRTUEL SOUS CP/M 2.23 * 
;* VERSION CP/M 60k * 
* * 
; 

;* APPLE //e 128 k * 
en * 
;* JF-R JUN 85 * 
RAR RRARÉRRRRRARÉRRRRRÉ REA RRAARRRRÉRRARÉARARÉRR A 


SR: 


; COMMUTATEURS DES PAGES DE MEMOIRE 

RDMAIN EQU 0E002H ;RAM PRINCIPALE EN LECTURE 
RDAUX EQU 0E003H ;RAM AUXILIAIRE EN LECTURE 
WRMAIN EQU 0E004H ;RAM PRINCIPALE EN ECRITURE 
WRAUX EQU 0E005H ;RAM AUXILIAIRE EN ECRITURE 
BKMAIN EQU 0E008H ;RAM À BANC COMMUTE PRINCIPALE 


BKAUX EQU 0E009H ;RAM A BANC COMMUTE AUXILIAIRE 
BK1 EQU 0EO08BH ;BANK 1 
BK2 EQU 0E083H ;BANK 2 


; STOCKAGE DES VARIABLES 

SAVSP EQU 0F080H ;SAUVEGARDE POINTEUR DE PILE 
OPER EQU SAVSP+2 ;CODE OPERATION: 

; O0 LECTURE, 2 ECRITURE 


BUFF EQU OPER+1 ADRESSE BUFFER CP/M 
SECT EQU BUFF+2 ;ADRESSE SECTEUR DEMANDE 
BANK EQU SECT+2 CODE BANK DEMANDE 

TRK EQU BANK+2 ;NO DE PISTE CP/M 

SCT EQU TRK+1 :NO DE SECTEUR CP/M 

; PARAMETRES 

; 

RAMDSK EQU ‘M'-'A' ;CODE M: POUR LE RAMISK 
TEMP EQU OF300H ;STOCKAGE TEMPORAIRE 
STACK EQU O0F100H ;NOUVELLE PILE Z80 
NBOCT EQU 80H ;NB D'OCTETS A TRANSFERER 
BDOS EQU 5 ENTREE BDOS 


# PROGRAMME RAMDISK 
; ROUTINE DE PREPARATION 
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; ROUTINE D'IDENTIFICATION DU RAMDISK 


5 


LD AL, BLF 
LD DE, BLO 
LD BC, 100H 
LD (BKAUX) , À 

IDENTI: LD À, (DE) 
CPI 
JR NZ, IDENT2 
JP PO, IDENT2 
INC DE 
JR IDENTI 

IDENT2: LD (BKMAIN) , À 
JR NZ, PREP ; PAS DE RAMDISK 
LD c,9 
LD DE, MSG 
CALL  BDOS ;MESSAGE DE CONFIRMATION 
LD C,1 
CALL  BDOS ; REPONSE? 
LD HL, CARAC 
LD BC, 4 
CPIR 
JR Z, PREP :PREPARE LA RAM AUX. 
JR MODIF ;CONFIG. CP/M 


CARAC: ASC "OYoy' ; CARACTERES VALIDES 
MSG: DFB ODH, OAH 

ASC "Un Ramdisk existe....' 

DFB ODA, 0AH 

ASC ‘faut-11 l''annuler (O/N)? $' 


;RECOPIE DU CODE COMPLET EN RAM AUXILIAIRE 


î 


PREP: LD HL, DEB 
LD DE, DEB 
LD BC, LPROG 
LD (WRAUX) , A 
LDIR 


; TRANSFERT DE L'EXECUTION EN RAM AUXILIAIRE 
LD (RDAUX) , À 
LD (BKAUX) , A 

:MISE EN PLACE DU CODE DE TRANSFERT 


# 


LD HL, BLO 
LD DE, BLF 
LD BC, LG2 
LDIR 


’ 


;INITIALISATION PISTE 3 (DIRECTORY CP/M) 


ñ 


D 


LDIR 


VO ss 


LD 
LD 
LD 


‘ 
. 
F à 
‘ 





HL, 30004 
À, 0E5H 
BC, OFFFH 
(AL), A 
DE, 3001H 


RETOUR EN RAM PRINCIPALE 


(BKMAIN) , A 
(WRMAIN) , A 
(RDMAIN) , A 


MODIFICATIONS DU CP/M EN RAM PRINCIPALE 


lattes entente ments ant ententes tement tt enentent tete tateatententn tale tent 


MODIF EQU 


$ 


î 
MISE EN PLACE DU CODE D'ENTREE SORTIE 


‘ 


LD 
LD 
LD 


LDIR 


‘ 


HL, BLO 
DE, BLF 
BC, LG1 


MISE EN PLACE DU CODE DE DETOURNEMENT 


‘ 


. 


RD EQU 
XOR 
JR 

HR EQU 
LD 
JR 

SORTIE EQU 
LD 
RET 

COMMUT: LD 

î 

LG1 EQU 

DETOUR EQU 

a 

î 

à 

‘ 

î 


LR 


Lu 


$ #POINT D'ENTREE LECTURE 

A 

COMMUT 

$ ; POINT D'ENTREE ECRITURE 
À,2 

COMMUT 

$ ; POINT DE RETOUR DES ROUTINES 
(BKMAIN) , À 

(BKAUX) , À 

$-BLF 

$ ; IMPLANTATION DE LA 


LD HL, DETO 
LD DE, DETF 
LD BC, LGDET 
LDIR 


î 
MISE EN PLACE DU BLOC PARAMETRES DISQUE 


‘ 


LD HL, BLPAR 
LD DE, 0FA63H 
LD BC, LGBL 
LDIR 


/MODIF TABLE DISQUE 
LD HL, OFA63H 
LD (0FASDH) , HL 


‘ 


; MODIF VECTEURS BIOS 


ñ 


LD ” HL,READ 

LD (0FA28H),HL 

LD HL, WRITE 

LD (0FA2BH), HL 

LD HL, SELDSK 

LD (OFA1CH), HL 
‘ 

LD C, 9 

LD DE, MSGOK :MESSAGE TERMINE 

JP BDOS ; SORTIE BDOS ET RETOUR 
î PAR LE CCP. 
MSGOK: DFB ODA, OAH, ODA, OAH 

DFB RAMDSK+'A' 

ASC ": en service..... 1 

DFB ODA, OAH 

ASC "s" 
î 
JRRRRRSSRRRSES RSS RRMMMMMMMMR RSS ER 
ï IMPLANTATION DU RAMDISK EN RAM AUXILIAIRE 
JR RM MMM MERE SRE SE SSEE SNS 
LS 
BLO EQU $ ; DEBUT DU CODE DE TRANSFERT 
BLF EQU O0F100H ; ET ADRESSE D'IMPLANTATION 

.PHASE BLF 
; 
i 
AL EEE 
#  ROUTINES D'ACCES: CE CODE EST COMMUN AUX DEUX 
; PAGES F1, PRINCIPALE ET AUXILIAIRE 
JeRRRRRSRRESSSRSS SN MR RM nn nn 


LD (OPER) ,A 

LD HL, STACK 

LD (SAVSP) , SP 
LD SP, HL 

LD HL, (OFEFAH) 
LD (BUFF) ,HL 
LD AL, (OFEEAR) 
LD (TRK) , HL 

LD (RDAUX) , A 
LD (WRAUX) , À 


‘ 


‘ 


ROUTINE DE DETOURNEMENT 


LA SUITE S'EFFECTUE EN RAM AUXILIAIRE 


RECUPERATION DES PARAMETRES ET CREATION 
D'UNE NOUVELLE PILE EN RAM AUX. 


;ADR. DU BUFFER CP/M 


PISTE ET SECT. DEMANDES 


‘ 


# CALCUL DE L'ADRESSE DU SECTEUR DEMANDE 


A ET TRANSFERT DU BLOC DE 128 OCTETS 
0 0 0 0 0 D 0 0 0 0 0 0 0 0 10 0 0 0 0 0 D on 
: 
CALCAD: LD A, (TRK) 
CP 12H SI >= 12, I/0 ERREUR 
JR NC, ERREUR+1 
CP OFH ;SI >= OF, "REPLIEMENT" 
JR C, CALC1 
SUB OFH ; DU NO DE PISTE 
CALC1: LD AL, BK2 
CP OEH : SI "0E, EN BANKI1 
JR NZ, CALC2 
LD HL, BK1 
LD A, 0BH ; NOUVEAU NO DE PISTE 
LD (TRK) , À 
(BANK) , HL 


CALC2: LD 


5 


;ADRESSE= TRK*4096 +SCT*128 


* 


RLCA 
RLCA 
RLCA 
RLCA 
LD D, A 
LD AL, (TRK) 
XOR A 
LD E, A 
RR H 
RRA 
LD L,A 
ADD HL, DE 
LD (SECT) , HL 
CALL TRANSF 
XOR À 
ERREUR: LD HL, 403EH 
LD (BK2),A 
LD HL, (SAVSP) 
LD SP, HL 
LD {(RDMAIN) , A 
LD (WRMAIN) , À 


; TRANSFERT DU SECTEUR 


;ERREUR+1= LD À, 40H 


; RECUPERATION DE LA PILE 
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LD (0F3EAH) ,A 
JR SORTIE 


; CODE ERREUR RWTS 
; RETOUR AU BDOS 


ROUTINE DE COMMUTATION DES PAGES ET COPIE DE BLOC 
RESIDE EN BANK AUX 


Ve Se Ve se Se 


COPI1: LD (AL) ,A ; RAM EN LECTURE 
LD (DE) ,A ; RAM EN ECRITURE 
EXX 
LDIR ; TRANSFERT BLOC 
LD (RDAUX) , A ; REMISE EN LECT. 
LD (WRAUX) , À ; ET ECRITURE DE LA 
RET ; RAM AUXILIAIRE 


DEAR 


ROUTINE DE TRANSFERT 


RRRMR=RMREERENSEREEEEEMEENESSESESESSEEMEMMEEENMEMEMEEE 


DETERMINATION DU TYPE DE TRANSFERT À EFFECTUER 


Ve Ve Ve Vs 


TRANSF: LD A,H ;OCTET HAUT DE SECT 
CP 0B0H /EN RAM BANK ? 
LD À, (OPER) ;LECT. OU ECRIT. ? 
ADC ÀA,0 
RLCA 
LD C,A 
LD DE, (BUFF) 
LD HL, OAFFFH 
LD A, 0FOH ;: SI BUFFER CP/M EN FXXX 
CP D ; IL EST EN MAIN48 
JR NC, TRANSO 
LD D, 1 
TRANSO: XOR À 
SBC HL, DE 
JR C, TRANS1 ; BUFFER EN BANK MAIN 
INC HL 
INC C 
RL C 
XOR À 
CP H 
JR NZ, TRANS2 ; BUFFER EN MAIN48 
LD À, 7FH 
SUB L 
JR C, TRANS2 ; BUFFER EN MAIN48 
INC C ;SINON, BUFFER À CHEVAL 
INC À ; SUR B000 
LD D,H 
LD E, A 
LD À, (OPER) 
OR À 
JR Z, TRANS2 
PUSH DE ;SI ECRITURE, ON EMPILE 
PUSH HL ; LES NB D'OCTETS APRES 
JR TRANS2 ; ET AVANT B000 
TRANS1: CCF 
RL C 
TRANS2: XOR À 
LD B, A 
RL C 
LD HL, ADTR LECTURE DE L'ADRESSE DE 
ADD HL, BC LA ROUTINE DE TRANSFERT 
LD E, (HL) 
INC HL 
LD D, (HL) 
EX DE, HL 
JP (AL) ET EXECUTION 


TABLE DES ADRESSES DES ROUTINES DE TRANSFERT 


ADTR: DW TR1, TR1, TR2, TRI 


DW TR3, TR3, TR3, TR3 
DW TR4, TR4, TR5, TR6 








DK TR7, TR7, TRS, TR8 


LR 


TR1: LD HL, (SECT) 
LD DE, TEMP 
LD BC, NBOCT 
EXX 
CALL MOVES 
LD HL, TEMP 
LD DE, (BUFF) 
LD BC, NBOCT 
EXX 
JP MOVE4 
TR2: LD HL, (SECT) 
LD DE, (BUFF) 
LD BC, NBOCT 
EXX 
JR MOVE2 
TR3: LD HL, (SECT) 
LD DE, (BUFF) 
LD BC,NBOCT Sur la disquette 
EXX d'accompagnement 
JP MOVE4 de ce numéro, 
4 : , ur vous trouverez 
sis = pes bi f un fichier TEXT 
LD BC, NBOCT DOS 3.3 du 
EXX source de 
CALL MOVE3 RAMdisk. Le 
LD HL, TEMP fichier 
en mu à sp; RAMDISK.COM a 
LD BC, NBOCT . 
EXX été obtenu par 
JR MOVES transfert de la 
L disquette 
TRS: LD HL, (BUFF) originale CP/M à 
LD DE, (SECT) l'aide du 
= BC, NBOCT ordis 
JR MOVE1 commercial 
; Universal File 
TR6: LD HL, (BUFF) Conversion. Vous 
LD DE, TEMP utiliserez ce 
POP BC programme ou 
res APDOS pour le 
CALL MOVE1 ; 
POP BC transférer sur 
EXX votre disquette 
CALL MOVE3 CP/M. 
LD HL, TEMP 
LD DE, (SECT) 
LD BC, NBOCT 
EXX 
JR MOVES 
TR7: LD HL, (BUFF) 
LD DE, (SECT) 
LD BC, NBOCT 
EXX 
JR MOVE3 
; 
TR8: LD HL, (BUFF) 
LD DE, (SECT) 
POP BC 
EXX 
CALL MOVE1 
POP BC 
EXX 
JR MOVE3 


PPT PP LE PR LE LL LE 7 1 


ROUTINES DE DEPLACEMENTS 


M D VU MS 





MOVEl: LD HL, (BANK) . DEPHASE 


LD (AL) ,A LPROG EQU S$S-DEB LONGUEUR DU PROGRAMME 
LD HL, ROMAIN ; 
LD DE, WRAUX ; 
JP COPI1 James nn nn nn 
MOVE2: LD HL, (BANK) ;ROUTINE DE DETOURNEMENT DES APPELS BIOS 
LD (AL), À : 
LD HL, RDMAIN DETO  EQU $ 
LD DE, WRMAIN DETF  EQU DETOUR ;ADRESSE D'IMPLANTATION 
JP COPI1 .PHASE DETF 
MOVE3: LD (BK2),A READ: LD À, (OFEEFH) 
LD DE, WRAUX cP RAMDSK 
LD BC, BKMAIN JP NZ, OFEC6H 
JR CoPI2 JP RD 
; WRITE: LD À, (OFEEFH) 
MOVE4: LD (BK2), À cP RAMDSK 
LD DE, WRMAIN JP NZ, OFECCH 
| LD BC, BKMAIN JP FR 
| JR coPI2 SELDSK: LD À, RAMDSK 
| ; cP c 
MOVES5: LD HL, (BANK) JP NZ, OFE97H 
LD (HL) ,A LD (OFEEFH) , À 
LD DE, WRAUX LD HL, OFA53H 
LD BC, BKAUX RET 
JR COPI2 ; 
: LGDET EQU $-DETF 
;ROUTINE DE COMMUTATION DE PAGES ET COPIE DE BLOC jmmmmmmmmmnnmmmmmmmmsss. 
; RESIDE EN RAM AUX48 ; 
nan anna nnnnanininintninte minimes ;BLOC DE PARAMETRES DISQUES 
COPI2: LD (DE) ,À ; 
LD (BC), À . DEPHASE 
EXX BLPAR: DK 20H 
LDIR DFE 3,7,0 
LD (BKAUX) , À DW 3BH :NB DE BLOCS-1 =59 
LD (WRAUX) , À DW 2FH, OCOH, OCH, 3 
RET LGBL  EQU $-BLPAR 
LG2 EQU $-BLF ;LONGUEUR DU CODE DE TRANSFERT END 





Dump hexadécimal de ‘RAMDISK.COW 


0100 00 00 00 21 00 F1 11 02 02 01 00 01 32 09 EO 1A 0280 05 EO C9 7C FE 
0110 ED Al 20 06 E2 1A 01 13 18 F5 32 08 EO 20 52 0E 0290 FO 21 FF AF 3E 
0120 09 11 3C 01 CD 05 00 0E 01 CD 05 00 21 38 01 01 02A0 23 OC CB 11 AF 
0130 04 00 ED B1l 28 3B 18 6F 4F 59 6F 79 OD OA 55 6E 02B0 5F 3A 82 F0 B7 
0140 20 52 61 6D 64 69 73 6B 20 65 78 69 73 74 65 2E 02c0 CB 11 21 C9 F1 
0150 2E 2E 2E O0D 0A 66 61 75 74 2D 69 6C 20 6C 27 61 02D0 F2 E9 F1 11 F2 
0160 6E 6E 75 6C 65 72 20 20 28 4F 2F 4E 29 3F 20 20 02E0 F2 46 F2 63 F2 
0170 24 21 03 01 11 03 01 01 C7 02 32 05 EO ED BO 32 02F0 F3 01 80 00 D9 
0180 03 E0 32 09 EO 21 02 02 11 00 F1 01 C8 01 ED B0 0300 80 00 D9 C3 A5 
0190 21 00 30 3E E5 01 FF OF 77 11 01 30 ED BO 32 08 0310 D9 18 7C 2A 85 
01A0 E0 32 04 EO 32 02 EO 21 02 02 11 00 F1 01 0E 00 0320 F2 2A 83 F0 11 
0180 ED B0 21 CA 03 11 0E F1 01 23 00 ED B0O 21 ED 03 0330 F3 ED 5B 85 FO 
01C0 11 63 FA 01 OF 00 ED B0 21 63 FA 22 5D FA 21 0E 0340 85 FO 01 80 00 
01D0 F1 22 28 FA 21 19 F1 22 2B FA 21 24 F1 22 1C FA 0350 CD 80 F2 C1 D9 
01E0 0E 09 11 E8 01 C3 05 00 OD OA OD 0A 4D 3A 20 20 0360 80 00 D9 18 4D 
01F0 65 6E 20 73 65 72 76 69 63 65 2E 2E 2E 2E 2E 0D 0370 18 2A 2A 83 F0 
0200 0A 24 AF 18 08 3E 02 18 04 32 08 E0 C9 32 09 EO 0380 18 1A 2A 87 F0 
0210 32 82 FO 21 00 F1 ED 73 80 F0 F9 2A FA FE 22 83 0390 87 FOPTTLZIO00Z 
0220 FO 2A EA FE 22 89 F0 32 03 EO0 32 05 EO 3A 89 F0 03A0 05 EO 01 08 EOQ 
0230 FE 12 30 2F FE OF 38 02 D6 OF 21 83 EO FE 0E 20 03B0 18 OC 2A 87 F0 
0240 08 21 8B E0 3E 0B 32 89 F0 22 87 F0 07 07 07 07 03C0 D9 ED B0 32 09 
0250 57 2A 89 FO AF 5F CB 1C 1F 6F 19 22 85 F0 CD 81 03D0 C6 FE C3 00 F1 
0260 F1 AF 21 3E 40 32 83 EO 2A 80 FO F9 32 02 EO 32 03E0 3E 0C B9 C2 97 
0270 04 EO0 32 EA F3 18 92 77 12 D9 ED B0 32 03 EO 32 03F0 07 00 3B 00 2F 


3A 82 FO CE 00 07 4F ED 5B 83 
BA 30 02 16 01 AF ED 52 38 1B 
20 16 3E 7F 95 38 11 0C 3C 54 
07 D5 E5 18 03 3F CB 11 AF 47 
5E 23 56 EB E9 E9 F1 E9 F1 04 
F2 11 F2 11 F2 1F F2 1F F2 39 
F2 39 F2 70 F2 2A 85 F0 11 00 
80 F2 21 00 F3 ED 5B 83 FO 01 
85 FO ED 5B 83 F0 01 80 00 

D 5B 83 F0 01 80 00 D9 C3 A5 
01 80 00 D9 CD 9A F2 21 00 
00 D9 18 77 2A 83 F0 ED 5B 
18 3A 2A 83 F0 11 00 F3 C1 D9 
21 00 F3 ED 5B 85 F0 01 

83 FO ED 5B 85 F0 01 80 00 D9 
5B 85 FO C1 D9 CD 80 F2 C1 D9 
11 05 E0 C3 75 F1 2A 
C3 75 F1 32 83 EO 11 
E0 11 04 EO 01 08 EO 
01 09 EO0 18 00 12 02 
C9 3A EF FE FE 0C C2 
OC C2 CC FE C3 03 F1 
21 53 FA C9 20 00 03 
00 03 00 00 00 00 00 


b ù O0 © © © M M Oo © No tw nn 
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TRES HAUTE RESOLUTION SUR 
DMP/IMAGEWRITER 


ous êtes l'heureux 
possesseur d'une 
imprimante matricielle 
parallèle DMP ou de 
l'imprimante série ImageWriter 
de votre marque préférée. Alors 
vous allez pouvoir tracer vos 
courbes avec une résolution bien 
supérieure aux 280x192 points de 
l'écran que vous avez l'habitude 
de recopier avec votre programme 
de hardcopy habituel. 
En effet, c'est 1280 points par 
ligne horizontale, et autant de 
points que vous voudrez en 
verticale (la seule limite étant la 
taille de la feuille de papier et 
aussi celle de la mémoire de votre 
Apple II) que vous pourrez 
obtenir avec ce programme 
TABLE.1280, écrit en 
assembleur pour avoir un temps 
d'éxécution convenable. 


Mode d'emploi 


Il suffit de faire : 
RUN DEMO. TABLE. 1280. 


Ce petit programme de démons- 
tration charge TABLE.1280 et 
vous demande la hauteur de 
papier que vous voulez utiliser, 
ainsi que la densité du point. 

La hauteur est a priori 
quelconque, mais on aura 
éventuellement des problèmes de 
taille mémoire si on demande 
trop. 15 à 20 cm assurent une 
bonne présentation pour faire des 
essais sur une feuille 21 x 29,7. 
La densité correspond au nombre 
total de points que vous voudrez 
tracer. Plus elle est grande, plus 
la courbe est belle, mais plus 
aussi le temps d'exécution est 
long. Il n'y a pas de valeur 
idéale, cela dépend de la forme de 
la courbe. Faire un premier essai 
avec ‘l' ou ‘2 permet d'avoir 
une idée de la courbe obtenue sur 
l'écran haute-résolution. Au-delà 
les variables prendront la place 
mémoire de la page graphique et 
la courbe ne sera visible que sur 


CO —J où OU  & GO ON Ha 


wo 


RRRRRRRRRRÉARRRRRRRÉRRAAARÉRRARÉARÉE 


* * 
# TABLE TRACANTE SUR D.M.P. * 
* * 
* ET IMAGEWRITER # 
* * 
* * 
* * 
# TABLE ,2 x 
* * 
* (Big Mac) * 
* * 
* * 
* J.P.PAYEN le 26/02/86 * 
* * 


RARARRARRRRRARAARÉRRRRRRRRRRRRRÉRRARÉÉ 


DMP = $06 
*  POKE 6,128 ou 


:$80 si 
POKE 6,0 


INDEX = $07 a 
NBSAUT _ $08 : nbre 
*  POKE 8,NSAUTS 

NBK = nbre 
*  POKE 9,NBK% 


$09 ; 


NBKCOUR = $S1E : Val. 
YCOURANT = $18 a 
SAUTCT = $1A a 
MASK = $1B 

TABADR = $FD a 
TOADR = $EO / 


* $E2,E3,E4,E5 contiennent pages 
* (partie hte de l'adressse) 


Jean-Paul Payen 


Source ‘T.TABLE.1280' 


Assembleur Big Mac 


Ce source, sur la disquette 
d'accompagnement, est sauvegardé 
en format TEXT pour permettre 
l'édition avec un autre assembleur 


DMP, $00 si IMAGEWRITER 


Index ds le TABLEAU (0 à FF) 


de retour chariot 


total de pages) 


courante de NBK 


Val.Y pour comparaisons (18.19) 
cteur de Sauts 


Adr. page courante TABLEAU 
Adr. page 0 de TABLEAU 


1,2,3,4 


ADRX _ $EB ; Adresse de X#(K) 
ADRY = $ED ; Adresse de Y$(K) 

KX = SF9 ; Adr. courante de X$ 
KY = $SFB ;Adr. courante de Y# 
TABLEAUO = $9000 ; Octets graph. à lire 
CHRGET = $B1 

PTRGET = $SDFE3 
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l'imprimante, ce qui d'ailleurs est 
le but de l'opération. Avec une 
densité de ‘4 on remplit 
complétement la mémoire de 
l'Apple Il. (Il faudra alors 


supprimer le LOMEM de la ligne 
25 qui protège la page 
graphique). 


Quand le tracé est fini taper 
<RETURN> puis suivant votre 
imprimante tapez I (magewriter) 
. ou D (MP) quand le programme 
le demande : il faudra auparavant 
avoir alimenté en papier 
l'imprimante, en tenant compte 
du fait qu'elle le déroule à 
l'envers. Ceci pour avoir la 
courbe dans un sens tel que l'on 
pourra ajouter du texte par-dessus 
si on le désire. 
Le programme de démonstration 
va calculer les points 
représentatifs de la fonction Y 
(X) , à l'intérieur d'une fenêtre 
décrite par les variables 
XN,XM,YN,YM (lignes 100- 
160). Il est de la responsabilité du 
programmeur de modifier cette 
partie du programme ‘qui a été 
volontairement choisie très 
simple. Il est d'ailleurs possible 
de choisir une fenêtre et une 
hauteur d'impression telles que 
l'on puisse utiliser du papier 
millimétré avec une bonne 
correspondance entre l'échelle de 
la courbe et celle du papier. 
L'auteur en a fait l'expérience. 


Ligne 300-480, le programme 
calcule le nombre de retours 
chariots de l'imprimante 
(NSAUT%), les échelles compte 
tenu de la fenêtre, le nombre total 
de points (KM) et le nombre de 
pages mémoire correspondantes 
(NBK%). KM est un multiple de 
256 pour simplifier l'analyse du 
programme machine. 


Ligne 500-590 : calcul des points 
des axes horizontaux et verticaux. 
Cette partie peut etre développée 
si l'on veut faire figurer les petits 
traits d'unité sur les axes. On 
veillera alors à utiliser un nombre 
de points multiple de 256 et d'en 
tenir compte dans le calcul de 
NBK%. 


Ligne 600-670 : calcul des points 
de la courbe à tracer. Chaque 
point est représenté par un couple 


54 
55 
56 
57 
58 
59 
60 
61 

62 


63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
27 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
119 
114 
115 
116 
117 
118 





SLOT 
DEVICE = 
PIC = 
COUT 


ORG 


Gé ‘Pour la DMP uniquement 
$C080+16*SLOT ;Pour la DMP (carte PIC) 
$COC1+256*SLOT ; Idem 


$FDED Sortie standard (IMAGEWRITER) 
$8E30 ; CALL 36400 

CHRGET ; Récupère adresse 

PTRGET ; de X#(0) 

ADRX 

ADRX+1 

CHRGET 

PTRGET ; Y#(0) 

ADRY 

ADRY+1 


#>TABLEAUO ; $90 (à modifier 
implantation de TABLEAUO) 


TOADR+1 

TOADR+2 ; $91 

TOADR+3 ; $92 

TOADR+4 : $93 

TOADR+S5 : $94 

#<TABLEAUO ; $00 

TOADR ; $9000 ds EO.E1 
TABADR 

#0 

SAUTCT ; init. cpteur de sauts à 0 
YCOURANT 


YCOURANT+1 ; mise à O0 de YCOURANT 


* Envoi des caractères de controle à l'imprimante * 


OUT # ——> (ESC P) 


* Mise en caractères proportionnels 1280 pts par ligne 


LDA 
JSR 


#$1B 
OUT 
$"r" 


OUT # --> 1B 72 (ESC r) 


* Saut de ligne arrière 


#$00 

OUT ; => 00 

#$0D 

OUT ; —> position à la marge gauche 
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119 
120 
121 
122 
123 
124 
125 
126 
127 
128 


LDA 
JSR 
LDA 
JSR 


#$1B 
OUT 
FT" 
OUT 
#531 
OUT 
#536 


OUT ; “> 1B 54 31 36 


129 * Esc T 49 54 = Esc T 48+1 48+6 


130 * 
131 
132 
133 
134 
135 
136 
137 


138 * Esc > : 


139 


-> 16/144 = 1/9 pouce pour L.F. 


LDA #$1B 

JSR OUT 

LDA #$3E 

UJSR OUT ; “> 1B 3E 
unidirectionnelle 


140 *AAAARRARERRARARÉRAAÉAARARAAÉR AA AÉAÉÉÉÉÉÉ EE RÉ HER 


141 
142 
143 
144 


145 * Mise à 0 de 


146 

147 MISEZERO 
148 

149 

150 

151 

152 ENCORE 
153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 RELMONTI 
169 

170 

171 FORBITO7 
172 

173 CH1 
174 

175 

176 

NAT 

178 

179 

180 

181 

182 

183 
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LDA 
LDX 
STX 
LDY 
LDX 
STA 
INY 
BNE 
INC 
DEX 
BNE 


LDA 
STA 


LDA 
STA 
BNE 


BNE 


LSR 


$9000 --> $94FF 


#0 

TOADR+1 
TABADR+1 

#0 

#5 

(TABADR) , Y 


ENCORE 
TABADR+1 


ENCORE 


TOADR+1 


TABADR+1 ; réinitialise TABADR 


#310000000 
MASK 
CH1 


MISEZERO 


MASK 

ESCG1280 

NBK 

NBKCOUR ; initial. multiple de 256 pts 
#0 ; 256 pts à compter 


; Réinitial. KX et KY 


X%(K),Y%(K). Il est tout à fait 
possible de tracer ensemble 
plusieurs fonctions, la seule 
limite étant toujours la taille de la 
mémoire pour stocker tous ces 
points. Le travail essentiel de 
TABLE.1280 consistera donc à 
traduire la position de ces points 
en octets à envoyer à 
l'imprimante. 
Le programme de démonstration 
passe ensuite par une 
visualisation de la courbe. Cette 
partie étant facultative. 
Il se termine par l'appel de 
TABLE.1280 : il passe 
NSAUT% et NBK% comme 
paramètres, ainsi que l'adresse de 
Éébut des tableaux XZ(K) et 
Y%(K). 


Fonctionnement de 
TABLE.1280 


Écrit avec l'assembleur Big Mac, 
ce programme commence par 
récupérer l'adresse des tableaux 
X%(K) et Y%(K). Il initialise 
ensuite un certain nombre de 
pointeurs, notamment l'adresse 
de l'espace mémoire appelé 
TABLEAUDO qui sert à stocker 
temporairement 1280 octets à 
envoyer à chaque passe de la tête 
de l'imprimante. Cette partie est 
la seule se référant à une adresse 
absolue, le reste du programme 
étant totalement relogeable (pas 
de JSR ni de JMP). Donc, si l'on 
veut changer la place en mémoire 
de TABLE.1280 et du 
TABLEAUD sans réassembler le 
source, il suffira de changer les 
valeurs $90 et $00 utilisées au 
début, pour les remplacer par 
l'adresse de son choix. 

Le programme envoie ensuite les 
codes de contrôle à l'imprimante : 
(ESC-P) pour la mettre en mode 
proportionnel (1280 points par 
ligne), (ESC-r) pour le 
défilement arrière du papier, 
(ESC-T 49 54) règle l'interligne à 
1/9 pouce, et enfin (ESC->) pour 
une impression unidirectionnelle, 
sinon les axes verticaux seraient 
mal tracés. Il devrait être possible 
en modifiant ces caractères de 
contrôle d'utiliser d'autres 
imprimantes. 

Suit la partie de recherche et 
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d'impression qui sera expliquée 184 STA KY+1 
plus en détail et le programme se 185 
termine en remettant l'imprimante 186 CHERCHE LDY #0 


dans son état habituel. 187 LDA (KY),Y ; lit ler octet de Y#(K) 
188 CMP YCOURANT 
189 BNE KSUIVANT ; s'il est différent on saute 
190 INY 
Recherche et 191 LDA (KY),Y ; lit 2e octet de Y#(K) 
: F 192 CMP. YCOURANT+1 
impression 193 BNE KSUIVANT ; s'il est différent on saute 
194 
Le Kième point, calculé par le 195 LDY #0 il est idem 
. programme Basic est donc défini 196 LDA (KX),Y ; lit ler octet de X#(K) -> n{page 
par ses coordonnées X%(K), 127 TAY 
Y%(K) dans le plan de la feuille 198 LDA TOADR+1,Y ; charge n[ page 
de papier. 199 STA TABADR+1 ; mis ds adr, courante 
200 LDY #1 
Prenons par exemple les 8 201 LDA (KX),Y ; lit 2e octet de X#(K) 
premières lignes en bas de la 202 TAY 
feuille. YCOURANT est mis à0 203 LDA  (TABADR),Y 
pour commencer. Le programme 204 ORA  MASK 
va chercher s'il existe une ou 205 STA (TABADR),Y ; met le bit ds TABLEAU 


plusieurs valeurs YZ(K) égales à 206 
YCOURANT. Quand il en trouve 207 KSUIVANT INC KX 


une, il va lire XZ(K) et va ranger 208 BNE Il 
1000 0000 à l'adresse 202 INC KAti 
TABLEAUDO + X%. 210 11 INC. 
211 BNE I2 
Il passe alors à YCOURANT = 212 INC  KX+1 
1 ; recommence le même travail 213 
et rangera alors 0100 0000. Etc. 214 12 FNE" KT 
jusqu'à la 8ème ligne. S'il se 21° sl: 
trouve 2 valeurs différentes de °°° . se 
Y% pour le même X%, par cl Li nr 
exemple Ÿ = 5 et Y = 3 pour X = at 2 pv 
149, en faisant un ORA, on 
trouvera à l'adresse 
221 I4 DEX ; dernier K ? 
TABLEAUO+149, 0001 0100. Sa BNE CHERCHE > non 
a ; dernier NBK ? 

Le programme prévient alors es . ; sa 
l'imprimante qu'il va lui envoyer ;:. : 
0 2036 48) ce tn Lee 226 INC YCOURANT+1 ; ligne suivante 

: 227 BNE  FORBITO? 
8 * 1280 points correspondant ;, INC  YCOURANT 
aux 1280 octets ainsi définis. On  ;,:9 BNE  FORBITO? 


regarde si la recherche est 3 
terminée (comparaison avec 231 
NSAUT%) et on recommence le 32 
travail si ce n'est pas le cas, en 233 RELMONT2 BNE RELMONTI 
remettant au préalable à O tout 234 
l'espace mémoire réservé pour 235 


TABLEAUC. 236 ESCG1280 LDA #$1B 
237 JSR OUT 
238 LDA 4#"G" 
Ce programme fonctionne avec 239 JSR OUT 
l'interface parallèle PIC d'Apple 240 LDA  #$31 
ou avec une interface série 241 + 7 
branchée sur ImageWriter, les 222 De Pr 
codes de contrôle des deux 24° pres 
imprimantes étant les mêmes. 244 ne 
245 JSR OUT 
246 LDA #$30 
C 247 JSR OUT 
248 
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249 %* 1B 47 31 32 38 30 





250 

251 * Esc G 48+1 48+2 48+8 48+0 

252 * 1280 : 1280 positions de points 

253 

254 

255 

256 LDA #>TABLEAUO 

257 STA TABADR+1 ; réinit. TABADR 

258 LDA #<TABLEAUO 

259 STA  TABADR 

260 

261 * Lecture des 1280 octets de TABLEAUO 

262 

263 

264 

265 LDA #0 

266 STAINDEX ; Initialise INDEX 

267 

268 IMPRIME LDY INDEX 

269 LDA (TABADR),Y ; lit TABLEAU 

270 JSR OUT ; 8 pts imprimés 

271 INC INDEX ; INDEX <= $FF 

272 BNE IMPRIME ; oui, au suivant 

273 

274 INC TABADR+1 ; non à la page suivante 

275 LDA TABADR+1 

276 CMP #>TABLEAUO+$500 ; dernier ? 

277 BNE IMPRIME ; non 

278 

279 

280 * Impression des 1280 pts terminée 

281 

282 

283 LDA #$0D 

284 JSR OUT 

285 BIT DMP 

286 BPL NOLF ;Pas LF si IMAGEWRITER 

287 LDA #$0A 

288 JSR OUT 

289 NOLF EQU * 

290 

291 * CTRL-M : saut de ligne 

292 

293 

294 

295 INC SAUTCT e . 

296 LDA  SAUTCT Récapitulation 

297 CMP  NBSAUT ; dernière ligne ? Ci 3 

298 BEQ FIN ; oui TABLE. 1280 

299 

300 Après avoir saisi ce code sous 

301 moniteur, vous le sauvegarderez 

302 BNE RELMONT2 ; non --> Mise à zéro 

303 BSAVE TABLE.1280,A$8E30,L$18F 

pe * FIN remise en état normal de l'imprimante 8E30- 20 B1 00 20 E3 DF 65 EB 

306 FIN LDY 40 8E38- 84 EC 20 B1l 00 20 E3 DF 
8E40- 85 ED 84 EE A2 90 86 El 

307 LDA  #$1B 8E48- E8 86 E2 E8 86 E3 E8 86 

308 JSR OUT 8E50- E4 E8 86 E5 A9 00 85 E0 

309 LDA #$41 8E58- 85 FD AO 00 84 1A 84 18 

310 JSR OUT ; > 1B 41 8E60- 84 19 A9 1B 20 AF 8F A9 

311 8E68- DO 20 AF 8F A9 1B 20 AF 

312 * Esc À : interligne de 1/6 8E70- 8F A9 F2 20 AF 8F A9 00 

313 8E78- 20 AF 8F A9 OD 20 AF 8F 
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8E80- A9 1B 20 AF 8F A9 D4 20 314 LDA #$0D 


| 8E88- AF 8F A9 31 20 AF &8F A9 315 JSR OUT ; —> OD marge gauche 
8E90- 36 20 AF 8F A9 1B 20 AF 316 LDA #$1B 
8E98- 8F A9 3E 20 AF 8F A9 00 SÉ7 JSR OUT 
8EA0- A6 El 86 FE A0 00 A2 05 318 LDA #$3C 
8EA8- 91 FD C8 DO FB E6 FE CA 319 JSR OUT ; -> 1B 3C 
8EB0- DO F6 A5 El 85 FE A9 80 320 
8EB8- 85 1B DO 06 DO EO 46 1B 321 * Esc < : impression bidirectionnelle 
8EC0- FO 63 A6 09 86 1E A2 00 322 
8EC8- A5 EB 85 F9 A5 EC 85 FA 323 LDA 4#$0A 
8ED0- A5 ED 85 FB A5 EE 85 FC 324 JSR OUT ; -> OA : saut de ligne LF 
8ED8- AO 00 B1 FB C5 18 DO 1C 325 LDA 4#$1B 
8EE0- C8 Bl FB C5 19 DO 15 A0 sr DR OUe 
8EE8- 00 B1 F9 A8 B9 El 00 85 
8EFO- FE AO 01 Bl F9 A8 Bl FD 327 LDA #$66 
8EF8- 05 1B 91 FD E6 F9 DO 02 328 JSR OUT ; —7> 1B 66 (ESC f) 
 8F00- E6 FA E6 F9 DO 02 E6 FA 329 
8F08- E6 FB DO 02 E6 FC E6 FB 330 #* Saut de ligne avant 
8F10- DO 02 E6 FC CA DO C1 C6 331 
8F18- 1E DO BD E6 19 DO 9F E6 332 LDA #$1B 
8F20- 18 DO 9B DO 97 A9 1B 20 333 JSR OUT 
8F28- AF 8F A9 C7 20 AF 8F A9 334 LDA #$4E 
8F30- 31 20 AF 8F A9 32 20 AF 335 JSR OUT ; --> 1B 4E (ESC N) 
8F38- 8F A9 38 20 AF 8F A9 30 336 
8F40- 20 AF 8F A9 90 85 FE A9 337 * Caractère PICA 
8F48- 00 85 FD A9 00 85 07 A4 338 
8F50- 07 B1l FD 20 AF 8F E6 07 339 
8F58- DO F5 E6 FE A5 FE C9 95 
8F60- DO ED A9 OD 20 AF 8F 24 es — it 


8F68- 06 10 05 A9 OA 20 AF 8F 


8F70- E6 1A A5 1A C5 08 FO 02 342 * Envoie vers l'imprimante 





8F78- DO A9 AO 00 A9 1B 20 AF SIT AN EEE SSSR EEE 
8F80- 8F A9 41 20 AF 8F A9 OD 344 
8F88- 20 AF 8F A9 1B 20 AF 8F 345 OUT BIT DMP identifie l'imprimante 
8F90- A9 3C 20 AF 8F A9 OA 20 346 BMI DMPOUT 
8F98- AF 8F A9 1B 20 AF 8F A9 347 JMP COUT / IMAGEWRITER 
8FAO- 66 20 AF 8F A9 1B 20 AF 348 DMPOUT  STA DEVICE ; DMP 
8FA8- 8F A9 4E 20 AF 8F 60 24 349 ATTENTE LDA PIC 
8FBO- 06 30 03 4C ED FD 8D 90 350 BMI ATTENTE 
8FB8- CO AD C1 C1 30 FB 60 351 RTS 
170 REM 
Programme FAT 


‘DEMO.TABLE.1280°  :°0 rem ------ 


200 REM CHOIX INITIAUX 


10 REM DEMO. TABLE. 2 205 (REM se-cescessese 
15 REM 210 HOME 
MEN (REMI == 215 INPUT "HAUTEUR EN CM (DE 10 À 30) ";H 
20 HIMEM: 36400 220 PRINT 
25 LOMEM: 16385 235 PRINT 
30 D$ = CHRS (4) 240 INPUT "DENSITE DU TRACE ( 1 A2) ";F# 
35 GOSUB 2000: REM EXPLICATIONS 250 PRINT :AX = 0 
40 PRINT D$"BLOAD TABLE.1280" 260 INPUT "TRACE DES AXES (O/N) ? ";A$: IF 
50 REM A$ = "O" THEN AX = 1 
60 REM 270 PRINT : HTAB 6: INVERSE : PRINT "ENVIRO 
F0 .REM! sas eee nue N ";3 * F$;" MINUTES D'ATTENTE": NORMAL 
80 REM FONCTION & FENETRE À 
90 REM DEFINIR PAR L'UTILISATEUR 280 PRINT "ATTENDRE LES 2 BIP POUR PRESSER 
100 ‘REM === 22iren2smmmms me "RETURN '" 
110 REM 285 REM 
120 DEF FN Y(X) = 1 - EXP ( - .2 * X) * 290 REM ---------…— 

COS (X) 300 REM CALCUL DE LA PLACE A RESERVER DANS 
125 PI = 3.14159 LA MEMOIRE 
130 XN = 0: REM X mini 310 REM seen 
140 XM = 5 * PI: REM X maxi 320 REM 
150 YN = O0: REM Y mini 330 IF (XN > O0) OR (XM < 0) OR (AX = 0) THE 
160 YM = 1.6: REM Y maxi N PV# = 0: GOTO 360: REM PAS D'AXE VERT 
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340 


350 
360 


370 


380 
390 


400 


410 
420 
430 
440 
450 


480 
490 
495 
500 
505 
510 
515 
520 
525 
530 
535 
540 
545 
550 
555 
560 
565 
570 
575 
580 
585 
590 
595 
600 
605 
610 


615 
620 
630 
640 
645 


650 
660 
670 
745 
750 
755 
760 
765 
770 
780 
790 
800 
810 
830 


ICAL À TRACER 
PV$ = 1 + H / 8.8: REM NBRE PAGES AXE V 
ERTICAL 


REM 
NSAUT$ = H / 0.275: REM NBRE SAUTS TETE 
IMPRIM. 
EY = 8 * NSAUTS$ / (YM - YN): REM ECHEL 
LE EN Y 
REM 
IF (YN > O0) OR (YM < 0) OR (AX = 0) THE 
N PH$ = O0: GOTO 420: REM PAS D'AXE HORI 
ZONTAL A TRACER 
PH$ = F$: REM NBRE PAGES POUR AXE HORIZ 
ONTAL 
REM 
EX = 1280 / (XM - XN): REM ECHELLE EN X 
NBK$& = PV$ + PH$ + 5 * F& 
REM NBRE DE PAGES MEM À RESERVER 
KM = 256 * NBK$: REM NBRE TOTAL DE POIN 
TS 
DIM X$(KM), Y$ (KM) 
REM 
REM CALCUL DE L'AXE VERTICAL 
REM 
IF PV$ = O THEN JY = - l: GOTO 555 
X0$ = - XN * EX + 0.5 
FOR JY = 1 TO 256 * PV# 
XS(JY - 1) = X0$ 
YS(JY - 1) = JY 
NEXT JY 
JY = JY - 2 
REM 
REM CALCUL AXE HORIZONTAL 
REM 
IF PH$ = O0 THEN KN = JY + l: GOTO 610 
YO$ = - YN * EY + 0.5 
FOR JX = 1 TO 256 * F& 
XS(JX + JY) = 5 * JX / F# 
Y&(JIX + JY) = Y0$ 
NEXT JX 
KN = JX + JY 
REM 
REM 
REM CALCUL DE LA COURBE 
REM 
S = (XM - XN) / 1280 / F$: REM PAS DE C 
ALCUL 
X = XN -5 
FOR K = KN TO KM - 1 
X=X4+S 
Y = FN Y{(X) 
IF Y < YN OR Y > YM THEN 670: REM PTS 
HORS FENETRE 
X$(K) = (X - XN) * EX + 0.5 
YS(K) = (Y - YN) * EY + 0.5 
NEXT Kr REM 
REM -------- 
REM TRACE HGR 
REM ----------- 
HGR 
POKE 49234,0 
HCOLOR= 3 
FOR K = O TO KM - 1 
X = X$#(K) / 4.6 
Y = 191 - Y#&(K) / NSAUTS * 23.8 
IF Y < O0 THEN 840 
HPLOT X,Y 


840 
850 
860 
870 
900 
910 
920 
930 


940 


950 


960 


970 

980 

990 

1000 
1005 
1010 
1020 
1025 
1030 
1035 


1040 
1045 
1050 
1060 
1070 
1080 
1085 
1090 


1095 
1100 


1101 
1102 
1103 
1104 


1110 
1990 
1995 
2000 
2005 
2010 
2020 


2030 
2040 
2050 
2060 
2070 


2080 
2090 





NEXT K: REM 

PRINT CHR$ (7): PRINT CHRS (7) 

INPUT A$ 

REM 

TEXT : HOME 

PRINT "CALCUL TERMINE": PRINT : PRINT 
PRINT "POUR COMMENCER À IMPRIMER" 
PRINT : PRINT "(I) POUR L'IMAGEWRITER": 
PRINT : PRINT "(D) POUR LA DMP" 
PRINT : INVERSE : PRINT "ATTENTION, 
PAPIER DEFILE À L'ENVERS": NORMAL 


LE 


GET A$: IF A$ < > "I" AND ÀA$ < > "i" 
AND A$ < > "D" AND A$ < > "d" GOTO 95 
0 

IF A$ = "D" OR A$ = "d" THEN POKE 6,12 
8 

IF A$ = "I" OR A$ = "i" THEN POKE 6,0 
PRINT :A = PEEK (49232) 
REM 

REM IMPRESSION 

REM == 

POKE 8,NSAUTS 

POKE 9,NBK$ 

IF A$ = "D" OR ÀA$ = "d" GOTO 1040 


PRINT D$"PR#l": PRINT CHR$ (9)"Z" 

REM Ajouter: PRINT CHRS (27); CHRS ( 
68); CHR$ (128); CHR$ (0) si vous n'av 
ez aucun saut de ligne. 


CALL 36400,X#(0),Y#(0) 

PRINT 

PRINT D$"PR#0" 

TEXT 

HOME 

PRINT "POUR OBTENIR LA MEME FONCTION" 

PRINT 

PRINT "TAPER ";: INVERSE : PRINT " RUN 
";: NORMAL 

PRINT 

PRINT : PRINT : PRINT "POUR MODIFIER L 

À FENETRE" 

PRINT "OU LA FONCTION:" 

PRINT 

PRINT " CHANGER LES LIGNES" 

PRINT "120 À 160 SELON VOS DESIRS": PR 

INT 

END 

REM 

REM == 

REM EXPLICATIONS 

REM =" 

HOME 

PRINT "CECI EST UN PRGM DE DEMONSTRATI 

on” 

PRINT : PRINT "ON POURRA OBTENIR DAVAN 


TAGE DE POINTS" 

PRINT "EN SUPPRIMANT LA REPRESENTATION 
PRINT 

PRINT 

PRINT 

PRINT 

RETURN 


"GRAPHIQUE SUR L'ECRAN" 
"IL FAUDRA: ALORS SUPPRIMER AUSSI 
"LE 


"LOMEM' DE LA LIGNE 25" 
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ou ne plus perdre d'anciennes versions. 


Voici un petit programme destiné 
à faciliter l'écriture de 
programmes Basic. En fait, il 
s'agit de deux fichiers TEXT 
écrits avec AppleWriter. 


Avant d'écrire un programme 
Applesoft, il faut faire 


RUN START L/S 


ou taper au clavier les 2 POKESs 
qui transformeront les 
commandes LOAD et SAVE en 
#OAD et #AVE. Ceci afin d'éviter 
des erreurs. 

Ensuite, pour charger ou 
sauvegarder un programme, il 
suffit : 


+ pour charger un programme, 
de faire : 


EXEC LOAD 


On donne le nom du programme 
et il se charge en mémorisant son 
nom en $300... avec un numéro 
de version. 


°_ pour sauvegarder, un: 
EXEC SAVE 


lira automatiquement le nom du 
programme en machine, ainsi que 
son numéro de version, qui sera 
incrémenté ; puis, la commande 
SAVE est exécutée. Si aucun nom 
n'est en mémoire, il faudra 
l'entrer au clavier. 

Ceci devrait éviter les 
‘écrasements involontaires’. 


NDLR : Nous avons remanié les 
deux fichiers EXEC pour les 
rendre un peu plus fiables. A 
noter que c'est un moyen 
gourmand en place sur Ja 
disquette, et qu'il faut de temps en 
temps nettoyer la disquette. 
Pourquoi ne pas faire un fichier 
EXEC qui efface toutes les 
versions dont le numéro est 
inférieur à un certain rang ? 


20 


Programme “START L/S' 


10 REM START L/S 
15 REM NEFONCTIONNE PAS SI LE DOS EST SUR LA CARTE LANGA 
GE 

20 TEXT : HOME 

30 POKE 43144,35: REM LOAD DEVIENT #OAD 

40 POKE 43148,35: REM SAVE DEVIENT #AVE 

50 PRINT " LOAD ET SAVE SONT INVALIDES" 

60 PRINT " UTILISEZ EXEC LOAD ET EXEC SAVE" 








Fichier EXEC ‘LOAD' 


NB : Les + symbolisent des espaces. Il y a un retour chariot à la fin de ce fichier. 


TEXT:HOME : VTAB 4:POKE 768,0 

POKE 118,0:POKE 43699,0:INPUT lesvcvssrevceseceeeseceseree 
c0000000.0..e.LOAD:e";NP$:A$=NP$:PORE 43699,1 

ER=1:PRINT CHR$(4)"VERIFY"A$S:ER=0:POKE 768,137 

IF NOT ER THEN FOR I=1 TO LEN(AS$):IF MID$S(AS$,I,1)<>"." TH 
EN NEXT 

IF I=1 OR I>36 THEN ER=1 

IF NOT ER THEN NV=VAL(MIDS(AS$, I+1)):IF NV<0 OR NV>99 THEN 
ER=1 

IF NOT ER THEN A$=LEFTS (A$, I-1):PRINT "PROGRAMME: "AS" — 
VERSION: "NV:A$=A$+".":IF NV<10 THEN A$=A$+"0" 

IF NOT ER THEN A$=AS$+STRS (NV) : LN=LEN (A$) :POKE 810,LN:POKE 
811,NV:FOR I=1 TO LN:POKE 768+I,ASC(MIDS (A$,1I,1)):N 
EXT:PRINT CHR$(4)" #OAD ";NP$ 

IF ER THEN PRINT "ERREUR - CHARGEMENT IMPOSSIBLE" 





Fichier EXEC ‘SAVE’ 


NB : Les + symbolisent des espaces. Il y a un retour chariot à la fin de ce fichier. 


TEXT:HOME : VTAB 4:ER=0 

MN=0:IF PEEK(768)<>137 THEN MN=1:POKE 118,0:POKE 43699,0: 
INPUT "esescceccresrecesesececceccecesscsecsececeseeSAVE: 
°";NP$:POKE 43699,1 

IF MN THEN ER=1:LN=LEN(NPS$) :FOR I=1 TO LN:IF MIDS$S(NPS,I,1 
)<>",." THEN NEXT:IF LN<=36 AND LN>0 THEN ER=0 

IF MN AND NOT ER THEN NPS$S=NPS$S+".00":LN=LN+3:POKE 810,LN:P 
OKE 811,0:FOR I=1 TO LN:POKE 768+I,ASC(MIDS(NPS,I,1) 
) :NEXT:POKE 768,137 

IF NOT MN THEN PRINT "SAUVEGARDE AUTOMATIQUE" :NP$="":LN=P 
EEK(810):FOR I=1 TO LN:NP$=NP$+CHR$S (PEEK(768+I)):NEX 
T:NP$=LEFTS (NP$, LN-2) :NV=PEEK(811)+1:IF NV>99 THEN E 
R=1 

IF NOT MN AND NOT ER THEN POKE 811,NV:IF NV<=9 THEN NP$=N 
P$+"0" 

IF NOT MN THEN NP$=NP$+STRS (NV) 

IF ER THEN PRINT "ERREUR - SAUVEGARDE IMPOSSIBLE" 

IF NOT ER THEN PRINT "PROGRAMME: "LEFTS(NPS,LEN(NPS)-3)" 
- VERSION: "NV:PRINT CHR$(4)" #AVE ";NPS$ 
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ette présentaton du 

langage PostScript est 

une forme de réponse 

aux lecteurs qui s'inter- 
rogaient sur le programme 
générant certains titres de Pom's. 
Les indications données ici seront 
directement utilisables par ceux 
qui ont la disposition d'une 
Laser Writer. En revanche, le 
Macintosh n'est pas indis- 
pensable, un Apple // (ou tout 
autre ordinateur doté d'une 
interface Série) et un traitement de 
texte conviendront, c'est 
d'ailleurs la configuration retenue 
par Pom's. L'heureux utilisateur 
de la Laser Writer lira avec intérêt 
“Macintosh Inside Laser Writer” 
la bible de PostScript en 450 


pages. 
PostScript 


Ce langage est intégré à la 
Laser Writer d'Apple et d'autres 
imprimantes à laser l'ont en 
option. Communément utilisé sur 
les machines de photocom- 
position (linotype par exemple), il 
tire sa souplesse et sa portabilité 
(chère aux Pascaliens...) du fait 
que les ordres ne sont pas 
réellement des commandes 
d'imprimantes mais plutôt une 
description de la page à imprimer. 
Le langage s'adapte aux 
caractéristiques de l'imprimante, 
adaptation que le programmeur 
peut contrôler (résolution 
horizontale et verticale, trame, 
couleur, saturation, dimensions, 
polices de caractères, niveaux de 
gris...). Il est bien entendu 
particulièrement orienté vers le 
graphisme mais trigonométrie, 
logarithmes, opérations logiques, 
traitements des chaînes ne lui font 
pas défaut près de 240 
opérateurs pour définir toute 
forme à imprimer. 


Sur le Macintosh, les ‘Drivers’ 
transforment les textes, formes et 
motifs créés par MacWrite, 
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Vaste eril 





Calcul : 9690 millisecondes. 


MacDraw, etc. en des ordres 
PostScript, interprétés dans la 
Laser Writer qui les reçoit sous 
forme ASCII. 


Les piles 


Possesseurs de calculatrices HP 
et pratiquants du Forth sont ici en 
pays de connaissance, PostScript 
est basé sur la gestion d'une pile 
ou plutôt de quatre piles : 


+ pile dictionnaire qui est la 
liste des commandes connues du 
langage, liste complétée par 
l'utilisateur en fonction de ses 
besoins ; 

+ pile opérateur qui peut 
contenir toutes les sortes d'objets 
PostScript sur lesquels on 
travaille. On y met arguments et 
opérandes et on y récupère les 
résultats. Ces objets peuvent être 
des entiers (jusqu'à + 2 147 483 
647 de la base 2 à la base 36 !) 
des réels de 10728 à 1058, des 
tableaux à une seule dimension 
mais 65535 éléments comptés à 
partir de 0, des chaînes, des 
dictionnaires, etc. ; 

+ pile d'exécution, inacces- 
sible à l'utilisateur, c'est la pile de 
travail de PostScript ; 

+ pile d'état graphique, 
également interne mais accessible 
à l'utilisateur qui peut préserver et 
restaurer des formes, polices, 
niveau de gris, épaisseur de trait 
en Cours. 


Il convient de préciser avant les 
deux exemples le fonctionnement 
de la pile et les possibilités de 
définitions. 


La pile 


La pile peut être considérée 
comme une série de cellules 
superposées dont seule la plus 
haute (et donc la plus récemment 
empilée) est accessible. 








Christian Piard 


Sommet de la pile 





Une addition telle que 17 +6 +5 
se présente ainsi : 17 6 5 add add 
la pile étant constituée à chaque 
étape comme suit : 


47 6 5 


élellu) 


17 6 add 5 add est équivalent, le 
résultat se trouvant toujours dans 
la cellule la plus haute. 
L'opération (3*2)(4-1) se 
programmerait ainsi : 23 mul 4 1 
sub exp où 4 1 sub 2 3 mul exch 
exp ce qui est plus long mais 
permet de présenter exch 
opération d'échange les deux 
premières valeurs de la pile. 


add add 





Rechercher le nombre d'éléments 
d'un tableau revient à faire [56 78 
34] length et on recupère 3 au 
sommet de la pile. Même principe 
pour une chaîne dont on veut 
connaître le nombre de 
caractères : (Pomn's) length laisse 
5 (le nombre de caractères) dans 
la pile. 


Le résultat peut occuper plus 
d'une cellule : dans la police de 
caractères courante, quelles 
seraient les hauteurs et largeur du 
mot Pom's ? (Pom's) stringwidth 
donne dans la cellule la plus haute 
la hauteur et dans la suivante la 
largeur. 
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Définitions 


PostScript permet de compléter le 
dictionnaire en associant des 
valeurs ou des procédures à des 
noms, possibilité exploitée dans 
les exemples. 


/nombre 45 def 

Aabl [15 25 89] def 

/unnom (Pom's) def 

Si, dans la suite du programme 
on invoque nombre, tabl ou un 
nom, on empilera le nombre 45, 
le tableau de 3 éléments, la chaîne 
de 5 caractères ou tout autre objet 
prédéfini. Ceci était la première 
façon de définir un nom du 
dictionnaire. 


Voici la seconde : 


/op {dup} def 

/moyenne {add 2 div} def 

/puiss2 {dup mul} def 

op, du fait des accolades dans la 
définition est maintenant associé à 
l'opération dup qui duplique le 
premier élément de la pile : 

56 78 12 op donne dans la pile 56 
78 12 12. 


34 12 moyenne laissera 23 dans la 
pile : 


34 12 moyenne 


moyenne qui se décompose 
ainsi : 








idem pour puiss2 qui élève au 
carré par duplication suivie d'une 
multiplication. 


Programme TITRE 


Le premier exemple consiste en la 
réalisation du titre de cet article 





qui est irréalisable sans la 
commande directe de Ja 
Laser Writer, aucun programme 
pour Macintosh n'étant encore 
capable de générer ce genre de 
fantaisie. 


Des caractères Times (la police 
utilisée pour le texte de cet article) 
de hauteur et d'inclinaison 
variable formeront le mot 
‘Postscript’ centré sur une page. 
Deux partie dans ce petit 
programme : des définitions puis 
une boucle d'impression. 


Le premier ordre usertime (ligne 
1) consiste à empiler la valeur en 
cours du compteur de 
l'imprimante, compteur 
incrémenté mille fois chaque 
seconde, ceci pour connaitre le 
temps nécessaire au calcul. 


Police (2) est associé à l'opération 
de recherche dans le dictionnaire 
de la police Times-Roman et 
chaine (3) au mot ‘Postscript’. 
Matrice (4), un tableau de six 
nombres sera empilé pour passer 
à makefont les arguments 
nécessaires à la modification de la 
police standard Times-Roman. 


Dans ce tableau, nous trouvons 
successivement exprimés en 
points : 


+ la largeur de base dela police 
de caractères (bien sûr chaque 
caractère n'a pas pour autant une 
chasse fixe), cette largeur 
pouvant être négative, ce qui 
conduit à écrire de droite à 
gauche ; 


* un nombre qui affecte 
l'horizontalité du texte (tangente 
de l'angle entre ligne d'écriture et 
horizontale) ; 


+ tangente de l'angle des 
caractères avec la verticale ; 


+ hauteur de base de la police qui 
peut aussi être négative pour 
obtenir des lettres tête en bas ; 


+ puis les vecteurs x et y 
s'additionnant à la position 
théorique d'écriture. 

Carac (5) est associé à la création 
d'une chaîne d'un caractère qui 
servira de tampon d'impression 
puisqu'on écrira lettre par lettre. 
Numcarac (6) est défini comme 


valant 0 et gardera le numéro de 
la lettre en cours d'impression. 
Demilong (7) qui est le nombre de 
caractères divisé par deux 
permettra de répartir la hauteur et 
l'inclinaison équitablement. 


Premier travail, mesurer la chaîne 
pour pouvoir la centrer : on 
recherche la police voulue (8), on 
empile le tableau qui donne une 
largeur de 40 et une hauteur de 
départ de 75, makefont se charge 
de modifier la matrice de 
paramètres standard (en fait une 
copie..….), et setfont enfin installe 
la police nouvelle. La police est 
là, il ne reste qu'à empiler le mot 
‘Postscript’ (9) et à en mesurer la 
largeur. 


L'ordre moveto (10) (équivalent 
de HTAB, VTAB sur l'Apple //) 
nécessite deux arguments, x et y. 
La page ayant 792 points sur 
612, la ligne se charge de centrer 
le titre. 


Suit alors (lignes 11 à 22) la 
boucle d'impression style FOR I 
= 1 TO LEN (A$) : PRINT MID$ 
(A$,I,1); : NEXT, exprimé ici de 
la façon suivante : 

O 1 L {procédure} for. 

0 est la valeur de départ, 1 
l'incrément, L le nombre de 
caractères -1. 


Procédure sera l'ensemble des 
ordres de recherche du caractère à 
imprimer, de modification de 
taille/inclinaison et d'impression. 


Notons ici qu'arbitrairement les 
caractères auront une inclinaison 
variant de -20° à +20° et leur 
hauteur variera en suivant une 
parabole. 

Numcarac (14) est incrémenté 
pour suivre le numéro de la lettre 
en COUTS. 


Ligne 15, l'élément 2 de la 
matrice nécessaire à makefont, 
élément qui représente 
l'inclinaison, est défini ainsi : 
tangente (numéro de caractère - 
demilong * 5) * hauteur. Notons 
que PostScript étant dépourvu de 
l'ordre TAN, il faut utiliser 
SIN/COS. 
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Elément 2 de la matrice 
= tangente de l'angle 


angle 


Inclinaison des caractères 





L'ordre put installe la nouvelle 
inclinaison dans la matrice en 
élément 2 (2 a été empilé 
quelques instructions plus tôt). 

Même travail (16) sur la hauteur 
du caractère définie comme suit : 
(numéro de la lettre - 
demi-longueur) au carré * 2,5 + 
35, 35 étant la hauteur minimale. 
Les paramètres sont maintenant à 
jour, on installe la police (17). 


Dans la pile, il y a l'indice de 
boucle qu'on a dupliqué plus 
haut, on empile chaîne et l'ordre 
get extrait le ième caractère (18). 
On met ce caractère dans 
l'élément 0 de la chaîne tampon 
carac (19). 

Il ne reste plus qu'à imprimer 
(20) cette lettre par l'ordre show. 
Ici on a utilisé l'ordre ashow qui 
nécessite deux paramètres : les 
valeurs x et y qui sont ajoutées à 
la position courante avant 
impression. Dans le cas présent, 
on demande que les caractères 
soient un peu plus serrés qu'en 
standard, sans modification 
verticale. Cet ordre permet lors 
des justifications totales de régler 
l'espace inter-lettre. 

La boucle for s'exécute ainsi 
jusqu'à la fin de chaine. 


Pour imprimer le temps de calcul, 
on opte pour la police Helvetica 
(23) en dimension 9 points, 
scalefont se chargeant de mettre à 
jour la matrice. 


Maintenant (26) on empile la 
valeur actuelle du compteur 
interne, juste au-dessus de celle 
empilée ligne 1, on échange les 
deux valeurs, on soustrait et dans 
il reste le temps 
string crée une 


la pile 
d'exécution. 


chaîne de caractères vide et cvs 
(convert to string) convertit le 
temps de calcul en une chaîne 
imprimable par show. 

Ultime étape, impression 
physique par showpage. 


Programme SIN 


Cet autre exemple a pour objet le 
dessin d'une courbe et 
l'impression d'un petit texte. 

La courbe définie entre les lignes 
4 et 10 est de la forme x = sin (a) 
* a et y = COS (a) avec «à variant 
de O à 360° par pas de 2°. Un test 
(7) est effectué pour modifier la 
courbe selon que la valeur du 
sinus calculé : 

sinus .2 ge {si oui} {si non) ifelse ce 
qui se traduit en Basic par /F 
SINUS >= .2 THEN si oui ELSE si 
non. 

Le lineto (8) nécessite deux 
arguments, position horizontale et 
verticale, pour dessiner un 
segment de droite reliant ce point 
à la position courante. 

La courbe est maintenant au point 
(11), on sauvegarde l'état 
graphique pour la garder en 
mémoire, on définit un gris clair 


(.95 setgray), on applique le grisé 
et on restitue l'état graphique 
antérieur. 

Pour laisser la place au futur 
pointillé, on dessine un trait en 
blanc (12) d'une largeur de 3 et 
de couleur 1 (blanc). stroke 
dessine ce trait. 

Par setdash, il est possible de 
réalisé toute sorte de pointillé, ici 
ce sera 20 points noirs, 2 blancs, 
2 noirs, 2 blancs. stroke réalise le 
tracé. 

Lignes 14 à 21 les chaînes de 
caractères seront imprimées dix 
fois, décalées, dans un gris de 
plus en plus foncé. Dans la 
définition des chaînes, \( et \) 
indique à PostScript que la 
parenthèse n'est pas un délimiteur 
de chaîne mais un caractère à 


imprimer. 
G 


NOT PONS 


s,WO ON 2 


Comment transmettre Postscript à la LaserWriter ? 





La LaserWriter 


Elle doit être réglée Sur 9600. 


L'Apple // 


Carte série configurée comme pour l'ImageWriter, 
le fichier sera chargé par un traitement de texte et imprimé 
avec. S'il s'agit d'AppleWriter, ne pas oublier de Supprimer le 


paramètre de soulignement (ps). 


Le Macintosh 


La LaserWriter sera connectée exactement comme 
l'ImageWriter, son connecteur 25 broches relié à la sortie 
imprimante du Mac. Les traitements de texte commandant les 
imprimantes en mode graphique, le plus Simple consiste à 
transmettre le PostScript (créé sous MacWrite, sauvegardé 
sous format ‘texte seul) à l'aide du programme Basic suivant : 


f$=FILESS (1) 
OPEN"I",1,£S 


LPRINT INPUTS(LOF(1),1}) 


CLOSE 
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Programme ‘TITRE’ 


NB : les numéros de lignes ne font pas partie du programme, ils ne servent qu'aux remarques du texte. 


1 usertime 

2 /police /Times-Roman findfont def 

3 /chaine (Postscript) def 

4 /matrice [40 0 -4 90 0 O0] def 

5 /carac 1 string def 

6 /numcarac 0 def 

7 /demilong chaine length 1 add 2 div def 

8 police matrice makefont setfont 

9 chaine stringwidth exch 
10 612 exch sub 2 div exch 792 exch sub 2 div moveto 
11 O0 1 chaine length 1 sub 
12 { 
19 dup 
14 /numcarac numcarac 1 add def 
15 /matrice matrice 2 numcarac demilong sub 5 mul dup sin 

exch cos div 75 mul put 

16 matrice 3 35 2.5 2 numcarac demilong sub exch exp mul add put def 
17 police matrice makefont setfont 

18 chaine exch get 

19 carac exch 0 exch put 
20 -2 0 carac ashow 
21 } 
22 for 


23 /Helvetica findfont 9 scalefont setfont 
24 300 340 moveto 

25 (Calcul : ) show 

26 usertime exch sub 15 string cvs show 
27 ( millisecondes.) show 
28 showpage 





Programme ‘SIN’ 


/chainel (X \{sin \(angle\)\) * angle) def 
/chaine2 (Y = cos \(angle\)) def 

350 370 moveto 

0 2 360 

{ 


ES 


dup dup dup 
sin dup .2 ge { 2.5 div .3 add } { 2 mul } ifelse mul 2 div 350 add 
exch cos 70 mul 300 add lineto 

} 

ÉOF 

gsave .95 setgray fill grestore 

gsave 3 setlinewidth 1 setgray stroke grestore 

13 [20 2 2 2] 0 setdash 0 setlinewidth stroke 

14 /Helvetica-Bold findfont [20 4.2 0 25 O0 0] makefont setfont 


© © Lo © jo Un GG N Ha 


do = U0 

Zé 

17 dup dup dup dup 

18 setgray 10 mul dup 130 add exch 285 add moveto chainel show 
19 setgray 10 mul dup 200 add exch 260 add moveto chaine2 show 
20 } 

21 for 


22 showpage 
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Un utilitaire d'impression Pascal : [D î IN) les 
Philippe Magnien 


e programme a pour 
principal objet de de 
débiter les listes des 
programmes Pascal en 
tranches d'une page, plus 
commodes à manipuler que les 
accordéons continus. En prime, il 
indique en bas de chaque page la 
date, repechée dans le système, ce 
qui permet de repérer sans 
problème l'édition la plus récente 
d'une liste. Enfin, les Apple DMP 
et ImageWriter disposant des 
caractères français et anglais, il 
permet de disposer des crochets et 
accolades en même temps que des 
caractères accentués. Ces 
caractères ayant les mêmes code 
ASCII, l'astuce consiste à 
considérer qu'un code de 125, par 
exemple, correspond à un ‘]' s'il 
se trouve entre deux apostrophes, 
et à un crochet fermant dans le cas 
contraire. Il en résulte que, sur la 
liste, les codes correspondants 
seront toujours interprétés de la 
même façon, suivant qu'ils se 
trouvent dans la partie programme 
proprement dite ou dans la partie 
texte. 
Quelques commentaires sur les 
différentes procédures : 


Datation 


Cette procedure va rechercher la 
date dans le système. L'adresse 
-18432 correspond au Pascal 1.2. 
Pour le Pascal 1.1, il faut 
remplacer cette adresse par 
-21992. 


Initialisation 


Cette procédure met en place un 
certain nombre de constantes qui 
seront utilisées dans le corps du 
programme. En particulier, elle 
initialise la chaîne de caractères 
"CROCHET" qui sera ensuite 
utilisée pour provoquer le 
changement de jeu de caractères 
lors de la reconnaissance des 
codes ASCII correspondants. Le 


Programme ‘PRINTER.TEXT’ 


program PRINTER; 
const NBL = 58; { pour des pages de 12 pouces; mettre 52 pour 11 pouces } 


type date = packed record 


MOIS : 0..12; 

JOUR : 0..31; 

AN : 0..99 
end; 


SETOFCHAR = set of char; 


var FICHIER : text; TurboPascal 

or À la suite de la présentation du 
£ ooliean/ ’ 

TAB, I, NUMERO : integer; TurboPascal (Pom S 23), 
CROCHET, TITRE : string; FRACIEL nous demande de 
LIGNE : string[160]; préciser son changement de 
raison sociale : 

FUNCTION GETCHAR(OKSET : SETOFCHAR) : CHAR; ‘BORLAND FRACIEL' 


et sa nouvelle adresse : 
78, rue de Turbigo, 75003 Paris, 
tél (1)42 72 25 19. 


VAR CH:CHAR; 
GOOD : BOOLEAN; 


BEGIN 
REPEAT 
READ (KEYBOARD, CH) ; 
IF EOLN(KEYBOARD) THEN CH:=#CHR(13) ; 
GOOD:=CH IN OKSET; 
IF NOT GOOD THEN WRITE(CHR(7)) 
ELSE IF CH IN[' ‘'..'è'] THEN WRITE (CH); 
UNTIL GOOD; 
GETCHAR: =CH 
END; 


PROCEDURE GETSTRING (MAXLEN: INTEGER; VAR CHAINE: STRING) ; 
VAR S : STRING; 


S1 : STRING[1]; 
OKSET :SETOFCHAR; 


BEGIN 
S :="°} 
S1 :='" !; 
OKSET +=. [" ","@"fr 
REPEAT 
IF LENGTH (5) = 0 


THEN S1[1] := GETCHAR ( OKSET +{[ CHR(13)]) 
ELSE IF LENGTH(S) = MAXLEN 
THEN S1[1] :=# GETCHAR([CHR(13), CHR(8)]) 
ELSE S1[1] := GETCHAR(OKSET+[CHR(13),CHR(8)]}); 
IF S1{1] IN OKSET THEN S := CONCAT(S,S1) 
ELSE IF S1[1] =CHR(8) 
THEN BEGIN 
WRITE( CHR(8),' ‘',CHR(8)); 
DELETE (S, LENGTH(S),1) 
END; 
UNTIL S1[1] = CHR(13); 
CHAINE := S; 
END; 


procedure DATATION; {'va chercher la date dans le systeme. cf PEEKS ‘} 
{'et POKES en pascal de J. Pino, POM''S n°12 f 


type biface = record case boolean of 
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programme suppose, pour 
fonctionner correctement que le 
jeu de caractères sélectionné au 
moment où le programme est 
lancé est le jeu français. C'est 
toujours le cas en ce qui me 
concerne, les caractères français 
étant affichés sur les interrupteurs 
de l'imprimante. Dans le cas 
contraire, il convient de rajouter 
une ligne au programme 
principal : 

write (copy (CROCHET, 1, 4),cop 
y (CROCHET, 6, 4)); 

après l'initialisation de 
l'imprimante pour se ramener au 
cas prédédent. 










































Traduire 


Cette procédure remplace dans la 
partie programme, les caractères 
'é','$','è',"" par la chaîne 
CROCHET, qui a pour effet de 
provoquer le passage aux 
caractères anglo-saxons avant 
l'envoi du caractère considéré, et 
le retour aux caractères français 


ensuite. 


Comment faire ? 


Pour lister un programme 
Pascal, vous devrez faire : 
X(ecute 
PRINTER 
puis vous devrez donner le 
nom du programme à lister 
éventuellement précédé de 
#4: OU #5:. 
Le programme est conçu 
pour une imprimante réglée 
sur 72 lignes par page. 


Rendons à Gisèle. 


… Perreault le mérite qui lui 
revient : dans Pom's 23, son 
nom avait été omis en tête de 
l'article ‘formateur de listing” 
au côté de Sylvie Gallet. 

Gisèle Perreault nous 
pardonnera certainement. 
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true : (ADRESSE:integer) ; 
false : (CONTENU:"date) 
end; 
var PEEKPOKET : biface; 
RELAIS : date; 
begin 
PEEKPOKET.ADRESSE := -18342; 
AUJOURDAUI := PEEKPOKET.CONTENU"; 
end; 


procedure INITIALISATION; 


var AUTRETITRE : string; 
begin 
writeln(chr(12));gotoxy(27,0);writeln("#*#*#*#*##XRRRRRRX ARR RARÉA ARR!) à 
gotoxy (27,1);writeln('* *); 
gotoxy (27,2);writeln('* Utilitaire d''impression *'}); 
gotoxy(27,3);writeln('* mere 
gotoxy (27,4);writeln("#*#*#####XR#XXARAEARÉEEAERARA AT) à 
AUTRETITRE := '!'; 
ENTREE 
NUMERO 
LIGNE 
CROCHET := " Z D: 
CROCHETI[1] := chr(27); 
CROCHET(3] := chr(6); 
CROCHET(4] := chr(0); 


:= true; 
:= 0; 
dm ‘UT 
: ‘ 


{'crée la séquence d'escape "EscZ60 (car) EscD60" 


{'lignes envoyées. à l'imprimante permettra 
{ d'obtenir les caracteres '} { [ ] " dans la 


CROCHET{[6] := chr(27); ('partie non texte du programme } 
CROCHET(8] := chr(6); 
CROCHET([9] := chr(0); 


DATATION; 

writeln;writeln('Nom du fichier à imprimer ? '); 
getstring(40,TITRE); 

writeln; 

(*$I-*) {'évite le plantage sur une erreur d''entrée sortie'}) 
reset (FICHIER, TITRE); 


if ioresult <> 0 {'vérifie la présence du fichier sur la disquette'} 


then begin 
AUTRETITRE := concat (TITRE, '.TEXT'); ('essaye en rajoutant } 
reset (FICHIER, AUTRETITRE) ; {" .TEXT LA | 
if ioresult <> 0 
then begin {'retour case départ } 
gotoxy(0,6);write(chr(11)); 
writeln('fichier non présent); 
ENTREE := false 
end 
end 
(*$SI+*) 
end; 
procedure TRADUIRE; {'remplace les caracteres " 6 è * $ " par la séquence ‘} 
{ d'escape, sauf dans les zones de texte "} 
VAR I : integer; 
CAR :char; 
begin 
TI :=1} 
while I <= length(LIGNE) do 
begin 


1f LIGNE[I] = chr(39) then repeat I := I+1 until (LIGNE[I) = chr(39)) 
or (I = length(LIiGNE)); 
{' saute les zones de texte, sans dépasser la fin de la ligne '} 
IT (LIGNE(I} In ['é!";'8",;"°";"$")) then 
begin 
CROCHET[5] := LIGNE(I]; {' met le car approprié dans CROCHET ‘} 
LIGNE:= concat (copy (LIGNE, 1,1-1}),CROCHET 
, copy (LIGNE, I+1, length(LIiGNE)-I)); {'remplacement} 
T'-I+8 
end; 
I := I+1 
end 
end; 


begin { programme principal } 


parent 2 


} 


{'qui, par remplacement systématique dans les ‘} 


} 


*} 


Vous n'avez ni 
DMP, ni 
ImageWriter ? 


Voici la signification des 
codes de contrôle utilisés par 
PRINTER pour commander 
l'imprimante. || vous suffit de 
les adapter à votre impri- 
mante dans la procédure 
‘TRADUIRE. 


Esc Z 60 

Jeu de caractères américains 
Esc D 60 

Jeu de caractères français 
Esc E 

Caractères ‘Elite’, 12 carac- 
tères par pouce 

Esc LO10 

Marge gauche à 10 carac- 
tères 

CTRL N 

Caractères dilatés 

CTRL O 

Caractères non dilatés 

Esc X 


repeat 
INITIALISATION; 
if not ENTREE 
then begin {'fichier non trouvé} 
writeln('voulez-vous faire une autre tentative ?'}); 
ENTREE := GETCHAR(['O','N','o','n']) in ['n','N']; 
if ENTREE then exit (program) 
end 
until ENTREE; 
TAB := (80-2*length(TITRE)) div 2; { centrage du titre } 
close (output) ;reset (output, 'printer:"'}); 
write(chr(27),'E',chr(27),'L010'); {' sélectionne les caracteres 12 cpi 
{'(EscE) et une marge gauche de 10 car 
{'(EscL010) ,à modifier suivant gout 
{" et imprimante 
writeln(" ":TAB,chr(14),chr(27),'X',TITRE,chr(27),'Y',chr{(15)); 
for I := 1 to 3 do writeln; 
while not eof(FICHIER) do 
begin 
NUMERO := NUMERO+1; 
if NUMERO mod NBL = 0 
then begin {'impression de la date et du numéro en ‘} 
{'bas de chaque page'} 
for I := 1 to 3 do writeln; 
with AUJOURDAUI do write (JOUR:3,MOIS:3,' 19',AN); 
writeln('page':30, (NUMERO div NBL ):3); 
page (output); 


9 
"3 
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} 


writeln(' ‘:TAB,chr(14),chr(27),'X',TITRE, chr(27),'Y',chr(15)); 


{'impression du titre en haut de chaque page} 


{'Ctri-N passage en car dilatés, EscX débute le soulignement ‘} 
E 


{'EscY le termine, Ctrl-O revient aux caracteres normaux 


for I := 1 to 3 do writeln; 
end; 
readln(FICHIER, LIGNE); {' lecture d''une ligne ‘} 
TRADUIRE; {' remplacement des car, si nécessaire ‘} 
writeln(LIiGNE) {" envoi à l'imprimante } 
end; { while } . 
for I := 1 to (NBL - (NUMERO mod NBL) + 3) do writeln; {'complete la ‘} 


{'derniere page} 


Début de soulignement 
Esc Y 
Fin de soulignement 


close (FICHIER, lock) 
end. 


Vous... Votre Apple... et Pom's 


Dans le prochain numéro de Pom's, nous publierons les 
résultats et enseignements du sondage paru dans le 
numéro de mars. Nous tenons dès aujourd'hui à 
remercier les centaines de lecteurs qui ont répondu à 
notre appel. Vos remarques nous permettent de mieux 
vous connaître et de mieux centrer votre revue. Voici la 
liste des heureux ‘tirés au sort’: 
Jean-Marie PLACE à Noyelles-les-Vermelles, Jean 
GOUTELLE à Saint Etienne, Claudine BUG à Paris, 
Robert GINTZ à Strasbourg, Simon BOSMAN en 
Belgique, Bruno INVERARDI à Saint Louis, Edmond 


GRAND à Vendargues, Christophe PRENEL à Épinay sur 


Seine, Bertrand MÉRIC à Cadaujac, Laurent FONTAINE 
au Mans, Stéphane DEHAN à Caudebec lès Elbeuf, 
Gérard CUVIER à Pfastatt, Nicolas LEPLEY à Fontaine la 
Malle, René MARTIN à Cognin et Patrick OLIVE à Paris. 
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with AUJOURDHUI do write (JOUR:3,MOIS:3,' 19',AN); 
writeln('page':30, (NUMERO div NBL + 1):3); 
close (output); reset (output, 'console:"}); 


E.P.E.5.0 


Précisions. 


E.P.ES5.0 est livré sur une 
disquette DOS 3.3 
(pensons à ceux qui n'ont 
pas de carte 16Ko). Pour 
utiliser E.P.E.5.0 sous 
ProDOS, il faut : formater 
une disquette ProDOS, 
puis copier sur celle-ci, à 
l'aide d'‘utilitaire système’ 
ou de ‘Convert’, les 
fichiers 
STARTUP, 
EPEON.PRODOS, 
EPEPRODOSS.0, 
DOCEPE.PRODOS et 
CLAVIERS.0.PRO. 

Il suffit alors de démarrer 
sur cette nouvelle 
disquette. 
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L'heure sans carte : datheurr 


ATHEUR permet de disposer 
de la date et de l'heure sans 
carte horloge et ainsi de 
pouvoir dater les fichiers avec 
précision. De plus, si vous disposez 
d'une carte souris, l'heure sera 
automatiquement incrémentée. 
La carte souris étant intégrée dans 
l'Apple //c, ce programme est donc 
particulièrement intéressant pour leurs 
propriétaires, d'autant que l'absence de 
"slots" empêche d'y insérer une carte 
horloge. 


+ si vous possédez une carte souris et 
si vous le désirez, les heures et les 
minutes seront affichées sur la 
première ligne de l'écran, que ce soit 
en affichage 40 colonnes ou 80 
colonnes. Le ":" séparant les heures 
et les minutes clignotera à chaque 
seconde ; 

+ si votre Apple ne possède pas de 
carte souris, l'heure ne s'incrémentera 
pas automatiquement, mais vous 
pourrez modifier l'heure chaque fois 


que vous le désirerez en tapant. 


simplement la commande HEURE 
puis en réglant l'heure avec les 
flèches. 


Mode d'emploi 


Après -DATHEUR ou BRUN 
DATHEUR, la date et l'heure du 
système apparaissent ou, par défaut, 
celles de la dernière utilisation du 
programme. Les minutes sont en vidéo 
inverse. En utilisant les flèches Î ou {| 
(ou les touches “>" et "<" pour un 
Apple ][+), vous allez respectivement 
les incrémenter ou les décrémenter. Si de 
même vous voulez modifier les heures, 
les jours, les mois ou les années, il 
suffira que vous utilisiez les flèches 
et = pour déplacer l'affichage en inverse 
sur les minutes, les heures, les jours, 
les mois ou les années suivant ce que 
vous voulez changer. Pour valider la 
date et l'heure, appuyez sur la touche 
RETURN. L'heure et la date seront alors 
affichées sur la première ligne de l'écran. 
Le ":" clignotant à chaque seconde 
indique que l'horloge fonctionne. 
L'heure sera ensuite affichée jusqu'à ce 
que vous supprimiez la protection de la 
première ligne (par exemple en faisant 
TEXT ou GR, ou encore en passant de 
l'affichage 40 colonnes à l'affichage 80). 
L'heure ne sera plus affichée mais 
l'horloge continuera à fonctionner. Pour 


l'afficher à nouveau, il suffira de tapez 
la commande HEURE, ce qui vous 
permettra éventuellement de régler à 
nouveau l'heure. 


L'heure affichée est assez précise et n'est 
pas affectée par le déroulement d'un 
programme, sauf si celui-ci utilise la 
souris. Cependant, les accès aux disques 
bloquent les interruptions et arrêtent 
donc momentanément le fonctionnement 
de l'horloge, ce qui peut provoquer un 
retard de quelques minutes sur une 
demi-journée. Enfin, si vous appuyez 
sur CTRL-Reset ,vous arrêtez l'horloge. 
Pour la faire repartir, tapez à nouveau 
HEURE. 


Si vous n'avez pas de carte souris, 
l'heure sera affichée comme expliqué 
ci-dessus, mais elle n'évoluera pas et le 
"ne clignotera pas. Si vous désirez 
que vos fichiers soient correctement 
datés, il vous suffira de mettre l'heure 
avant de les sauvegarder en utilisant la 
commande... HEURE. 


Enfin, si vous voulez récupérer la place 
occupée par le programme ou arrêter 
l'horloge, il suffit de tapez la commande 
LIBERE. Celle-ci supprime toutes les 
commandes extérieures et récupère la 
place qu'elles occupaient. Vous ne 
pouvez plus utiliser ni la commande 
HEURE ni LIBERE, ni aucune des 
commandes que vous aviez installées, 
sauf en relançant l'exécution de 
DATHEUR ou d'un programme 
installant une commande extérieure. 
Note : les commandes extérieures 
n'existe pas en DOS 3.3, ce programme 
ne fonctionne donc qu'en ProDOS. 
Comme de plus le principal interêt de ce 
programme est de pouvoir dater ses 
fichiers et que cette possibilité n'existe 
pas en DOS 3.3, ceci n'est pas un 
handicap. Vous pouvez toutefois 
l'adapter en DOS 3.3 moyennant des 
modifications importantes de 
l'interpréteur de commandes. Il faut 
noter, pour ceux qui souhaiteraient le 
faire, que les parties les plus complexes 
(celles concernant la souris) restent 
utilisables sans modification. 


La technique 


Le programme a été conçu de façon très 
modulaire et chacun des modules peut 
être réutilisé séparément dans un autre 
programme. 


Les différentes techniques utilisées 


Bruno Fénart 


sont : déplacement d'un programme en 
code machine, recherche de la carte 
souris et utilisation quelle que soit la 
machine ou le slot de connection, ajout 
d'une commande à l'interpréteur de 
BASIC.SYSTEM, utilisation des 
interruptions engendrées par le balayage 
vertical pour mesurer le temps sans 
empêcher le fonctionnement d'une autre 
fonction, etc. 


Commandes extérieures 


+ L'ajout d'une commande à 
l'interpréteur de BASIC. SYSTEM a été 
abordée dans le Pom's 20. Rappelons 
toutefois que ces commandes sont 
utilisables aussi bien dans un 
programme Basic avec la même syntaxe 
que pour une commande ProDOS (à 
condition bien sûr que la commande soit 
installée), que directement au clavier. 


Note : DATHEUR possède son propre 
relogeur qui installe les deux 
commandes sous BASIC.SYSTEM sans 
détruire les variables Basic, et ceci 
même si un ou plusieurs fichiers sont 
ouverts. 


La souris 


+ Le deuxième point important 
concerne la souris. L'utilisation de cette 
dernière est fort complexe mais est 
grandement facilitée par l'appel aux 
sous-programmes fournis dans la ROM 
de la carte souris. L'emplacement de ces 
sous-programmes est différent pour un 
Apple //e et un Apple //c, mais une 
table contenant leurs adresses a été 
disposée en début de ROM, permettant 
ainsi au programmeur de réaliser un 
programme fonctionnant sur les deux 
machines. C'est ce que permet le sous- 


programme SOURIS. 
°  DATHEUR utilise la souris d'une 
manière particulière, aussi ne 


détaillerons nous pas l'utilisation de la 
souris elle-même. Nous ne parlerons ici 
que des différents modes d'interruptions, 
interruptions génerées par la souris et 
qui permettent à l'horloge de fonctionner 
à une fréquence de 50 Hz. Sans trop 
entrer dans les détails, il faut savoir que 
pour que l'on puisse déterminer sa 
position, la souris génère des 
impulsions chaque fois qu'on la déplace. 
En plus de ces interruptions dues aux 
déplacements, deux autres sources 
d'interruptions existent ; celles 
provoquées par la pression du bouton, et 
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celles qui interviennent à chaque 
rafraîchissement de l'écran (VBL), ce 
qui se produit 60 fois par seconde (50 
fois pour l'Apple//c). Le programmeur 
peut choisir d'utiliser chacun de ces 
modes d'interruptions, soit ensemble, 
soit séparément. Pour DATHEUR, 
seule la fréquence de 60 Hz (ou 50 Hz 
suivant la machine) nous intéresse, nous 
n'utiliserons donc que les interruptions 
VBL. 

Remarque : sur les modèles américains 
de l'Apple //c le balayage se fait à une 
fréquence de 60Hz . C'est cette valeur 
qui est indiquée dans la documentation 


Apple, qui ne parle pas des modèles //c 
français pour lesquels la fréquence est de 
50 Hz. Pour l'Apple //c, la précision 
semble très bonne (de l'ordre de un pour 
mille). Pour l'Apple //e, elle est un peu 
inférieure (de l'ordre de cinq pour mille). 
Vous pouvez affiner le réglage de 
l'horloge en modifiant la ligne 110 
(octet $6007) pour l'Apple //c ou la 
ligne 113 (octet $600D) pour l'Apple //e 
ou J[+. 


Attention : sur l'Apple //c le vecteur 
d'interruption pointant en $C803 
(NEWIRQ), il est toujours accessible (la 
zone entre $C100 et $CFFF n'est pas 


commutable). Comme d'autre part 
ProDOS se charge d'initialiser les 
adresses $FFFE et $FFFF en carte 
langage et en mémoire auxiliaire, il n'y 
a aucun problème à utiliser un 
programme en mémoire auxiliaire avec 
l'Apple //c. Il n'en va pas de même sur 


un Apple //e . En effet, le vecteur 


d'interruption pointant en $FA40 (IRQ) 
n'est pas accessible d'un programme en 
mémoire auxiliaire. Par contre, et 
heureusement, ProDOS a pour son 
usage ‘personnel’ une routine de prise en 
charge d'interruption en carte langage. 
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Source 


‘DATHEUR.SCE0' 5 


Assembleur ProCODE 


55 RDKEY 
56 CROUT 


60 * 


EQU $FDOC 
EQU $FD8E 


sAttend une touche chargée dans À 
Envoie un retour chariot 


Sous-programmes en page globale BASIC.SYSTEM (BI) 


62 GOSYSTEM EQU $BE70 sExécute une commande ProDOS 
0 LÉLELEPELEEELLELELLELLLLILLILIIL111111111111) 63 BADCALL EQU $BE8D Code erreur MLI --> code BI 
1 * * 64 ERROUT EQU $BEO09 ‘Affiche l'erreur (code BI en A) 
2 * DATHEUR V. 2.0 (C) Bruno Fénart 1985 * 65 
3 * * 66 GETBUFR EQU $BEFS sRéserve (A) page(s) sous le BI 
4 * Création: Juillet 1985 * 67 FREEBUFR EQU $BEF8 ‘Libère buffer obtenu par GETBUFR 
5 * Modification: Décembre 1985 * 68 
6 * * 69 * Variables en page globale BASIC.SYSTEM 
7 ÉRRRRRRRRR RAR RAR R RER RÉ RAR RAR RAR 70 * ee ou ee me me ce ee ee ce de ie ie ee be ce ne ce ce ee ee 
8 71 
9 * Assembleur : ProCODE 72 EXTRNCMD EQU $BE06 ; JM vers interpréteur extérieur 
10 73 XTRNADDR EQU $BE50 jAdresse d'une commande extérieure 
11 * L'exécution de DATHEUR permet d'ajouter 74 XLEN EQU $BES52 ;Longueur-1l du nom de la commande 
12 * deux commandes supplémentaires à BASIC.SYSTEM : 75 XCNUM ÆEQU $BES53 sNuméro de la commande 
29, © 76 PBITS EQU $BE54 ;Paramètres optionnels autorisés 
14 * HEURE - Datation et mise à l'heure du système 77 VPATHI EQU S$BE6C Vecteur vers la commande entrée 
15 * De plus, s'11 y a une carte souris, le temps est 78 XRETURN EQU $BE9E ;RTS connu en page globale du BI 
16 * mesuré grâce à des interruptions de 50 ou de 60 Hz 79 
17 * LIBERE - déconnecte toutes les commandes 80 SSGINFO EQU S$BEB4 ;Paramètres de GET/SET FILE INFO 
18 * additionnelles, y compris HEURE et LIBERE 81 FIMDATE EQU $BEBE ;Date du dernier fichier utilisé 
19 82 
20 ORG $6000 83 * Variables et sous-programmes en page globale ProDOS 
21 BR 
22 * Variables en page 0 85 
QU ee cn 86 DATE EQU $BF90 ;Date ProDOS 
24 87 MACHID EQU $BF98 ;Identificateur de la machine 
25 NWNDTOP EQU $22 ‘Haut de la fenêtre écran 88 IRQENT EQU S$BFEB ; Vecteur entrée d'interruption 
26 LENGTH EQU $2F Longueur de l'instruction 89 
27 PCL EQU $3A ;Adresse de la ligne désassemblée 90 SETINFO EQU $C3 ;Code de SET FILE INFO 
28 ACC EQU $45 Acc. après une interruption 91 SETCOUNT EQU $07 ;Nombre de paramètre pour SETINFO 
29 ADR EQU $FrE ; Vecteur d'indirection temporaire 92 
30 93 * Commutateurs et indicateurs 
31 *  Constantes souris 94 ®* mcm 
32 "7 95 
de 96 RD8OVID EQU $CO1F ;Indic. affichage 80 colonnes 
34 INITMOUSE EQU $19 sinitialisation de la souris 97 TXTPAGEL EQU $C054 Affichage page 1 et mémoire P 
35 SETMOUSE EQU $12 sActive le mode des interruptions 98 TXTPAGEZ2 EQU $CO055 Accès mémoire X si RD80STORE 
36 SERVEMOUSE EQU $13 ‘Origine de l'interruption ? 99 PUT DATHEUR.SCE1 inclut le relogeur 
37 100 | PUT DATHEUR.SCE2 ;inclut les commandes 
38 * Variables non en page 0 
39 * =. 
0 Source 
41 IRQLOC EQU $3FE ; Vecteur de l'interruption IRQ 
42 LINE1 EQU $400 ‘Adresse du début de l'écran ‘DA THEUR SCE1 9 
43 ni 
44 * Sous-programmes du moniteur et de l'interpréteur Basic 0 * 1° partie: Relogeur 
45 Ÿ morocco à à arr  rr r 7727777] 
46 2 
47 INSDSP2 EQU $F88C sDécode la ligne (PCL) si X=0 ÉRREZIIZLIILLILELLLLLLLLLLLLLESILEILLLLSLLLLS ISLE LILLL EE 
48 OUTDO  EQU S$DB5C ‘Affiche le code ASCII de Acc. ge * 
49 LINPRT EQU $ED24 ‘Affiche l'entier X,A (A = MSB) 5 * Installation de la commande personnalisée Li 
50 NORMAL EQU $r273 ;Passage en mode normal 6 * entre BASIC.SYSTEM (BI) et ses buffers * 
51 INVERSE EQU $F277 Passage en mode inverse 7 * Recherche s'{11 y a une carte souris, et si oui * 
52 UP EQU $FCIA ;Remontée éventuelle du curseur 8 * détermine le numéro du slot où elle se trouve * 
53 HOME EQU $FC58 sEffacage de l'écran 9 * puis lance l'exécution de la commande HEURE * 
54 TEXT EQU $F399 ;Passage écran texte total 10 * D 
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11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
36 
97 


Ce source, sur la disquette d'accompagnement, est sauvegardé en format TEXT pour permettre l'édition avec un autre assembleur. 





ÉÉRARRRRRRÉRENERRRÉNÉÉÉ RÉ RÉÉÉRÉRESÉEÉRÉAARÉÉRÉÉÉARÉ 


$IIc 


$SIIplus 


S$gothem 


S$noerr 


% 


Relogeur 


M NN 


LDX 
LDY 


RELOGE 


$nomli 
S$mli 


TROUSOU 
MACHID 
#25 
#$BA 
$Ilc 
#30 
MAXHZ 


#500 
+588 
$Ilplus 
#$FF 
APPLEID 


EXTRNCMD+2 
PRECMD+2 
EXTRNCMD+1 
PRECMD+1 


#>NBPAG 
GETBUFR 
#$oc 
S$Sgothem 
ERROUT 


EXTRNCMD+2 
ADR+1 
#0 
EXTRNCMD+1 
ADR 
#>DEBUT 
PCL+1 
#<DEBUT 
PCL 
RELOGE 
CMDH 
#SETCOUNT 
SSGINFO 
#SETINFO 
GOSYSTEM 
$noerr 
BADCALL 
ERROUT 


#0 
SFr 
(PCL,X) 
$trans 
INSDSP2 
LENGTH 
#2 
$trans 
(PCL),Y 
#$8F 
S$nomli 


(PCL),Y 
#$00 
$nomli 


(PCL),Y 
#5 

#$520 

Smli 

#2 
(PCL),Y 


#>DEBUT 
S$trans 
#>NBPAG 
$trans 


‘Recherche le slot de la souris 
; Test si la machine est un //c 
Si c'est un //c alors 50 Hz 


;sinon 60 Hz 


;Si II ou 1I+ 
;1sole bit 7 et 3 de MACHID 


;:Si //e ou //c 


sPréserve la commande précédente 


‘Réserve autant de pages qu'en 
;occupe le programme à reloger 

; Si pas d'erreur (A)= adr. buffer 
isinon (A) = code d'erreur BI 
‘Affiche "NO BUFFERS AVAILABLE" 


‘installe la commande HEURE 
{Initialise adresse de transfert 


‘Adresse du programme à reloger 


sReloge le programme sous le BI 
sExécute la commande HEURE 

sinon modifie les informations 
du fichier DATHEUR pour mettre 
‘la date de dernière utilisation 


‘S'11 n'y a pas d'erreur, 
;Convertit le code MLI en code BI 
‘Affiche l'erreur et fin 


‘Pas d'erreur (sinon code dans A) 
This is the end my friend 


Reloge le programme de son ancienne adresse = DEBUT 
vers son implantation permanente sous le BI = (EXTRNCMD) 
Les deux adresses doivent être des multiples de 256 

Le nombre de pages transférées est égal à NBPAG 

La zone des données est séparée par DFB $00 (= BRK) 

Le programme prend en compte la structure d'appel au MLI 


‘Indispensable pour INSDSP2 
‘Pour le transfert des données 
{L'instruction est égale à BRK 
‘alors début des données 
;Décode une instruction et 
sdétermine sa longueur 


Longueur < 3 : Opérande inchangé 
;L'instruction est-elle JSR $BF00 


sintruction sur 6 octets du MLI 
sIintruction sur trois octets 
Sinon poids fort de l'opérande 


; comparé avec l'adresse de début 
;Opérande < adresse de début 


;ou opérande > adresse de fin 


98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 


$trans 


$boucle 


S$nocarry 


$fin RTS 


Recherche 


EXTRNCMD+2 ;Sinon calcule l'octet de poids 


(CL),Y 
#0 


(PCL, X) 
(ADR, X) 
PCL 
ADR 
$nocarry 
PCL+1 
ADR+1 


‘fort de l'adresse translatée 


; Longueur réelle 

; Transfert un octet 

svers sa nouvelle adresse 

; Calcul des adresses suivantes 


#>DEBUT+NBPAG; Numéro de la page finale + 1 


PCL+1 
$fin 


$trans 
$boucle 
RELOGE 


la souris 


;Fin du programme si on a 
stransféré les NBPAG pages 

; Transfert 1 à 3 octets suivant 
Transfert en continue (données) 
;la longueur de l'instruction 
‘Instruction suivante 


* Détermine s'il y a une carte souris et, si oui, 
* recherche le slot où elle est connectée. Le résultat est 
* mis dans MOUSLOT. Il vaut zéro s'il n'y a pas de souris 


TROUSOU  LDA 
STA 


DEC 
DEX 
BMI 


S$suivant 


$nomouse 


Source 
‘DATHEUR.SCE2’ 


* 


© © © y om U à & N h © 


el 


Ds 


Interpréteur des commandes HEURE et LIBERE 
Si aucune des deux commandes n'est reconnue, on 
retourne à l'adresse d'une éventuelle autre commande 


#$ce 
ADR+1 
#$00 
ADR 

#7 
ADR+1 


Snomouse 


#505 
4538 
(ADR) ,Y 
$suivant 


#$07 
#$18 
(ADR) ,Y 
$suivant 


#$0B 
#$01 
(ADR) ,Y 
$suivant 


#$oc 
#520 
(ADR) ,Y 
$suivant 


#$FB 
#$D6 
(ADR) ,Y 
$suivant 


ADR+1 
MOUSLOT 


#0 
MOUSLOT 


$6100-* 


‘Détermination du slot souris 


‘Recherche parmi les 7 slots 
;Slot suivant 


Souris dans aucuns des slots 


{Signature d'un périphérique 


‘sinon, slot suivant 


; Idem 


‘Idem 


‘Signature d'un joystick 
sou équivalent (paddle, 
; souris, etc.) 

;sinon, slot suivant 


Signature de la souris 


ssinon, slot suivant 


{Poids fort du slot souris 


‘S'11 n'y a pas de carte souris 
alors MOUSLOT = 0 


* 2° partie: Code relogeable permanent 


‘Le début doit être aligné 


ÉRRRRÉR ER RAR RRRR NÉ RAR RM RÉ RAR RÉNRRRRNNRRRTRRRR 


* 


6 + + 
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19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
23 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
30 
91 
92 
93 
94 
95 
96 


DRRRRRÉÉÉRARRÉÉRRRRÉERÉÉRÉRÉRENÉEÉRAÉÉÉÉÉRNNANÉÉÉRAÉÉÉRRÉ 


DEBUT CLD ;Non indispensable mais prudence 
LDA VPATHI sAdresse-1 de la commande entrée 
STA ADR ;mise dans un pointeur temporaire 
LDA VPATH1+1 
STA ADR+1 
LDX 4$FF sIinitialise sur la lière commande 
$cherche LDY #$00 Pointe l° caractère de l'entrée 
$compare INX ;Caractère suivant 
INY 
LDA CMDLIST,X ;Charge une lettre de la commande 
BPL S$trouvé ; Comparaison complète 
AND #$7F Conversion ASCII positif 
CMP  (ADR),Y ;Comparaison avec l'entrée 
BEQ $compare sMajuscules identiques: suivante 
EOR #$20 ‘sinon compare avec une minuscule 
CMP  (ADR),Y ;Recomparaison 
BEQ $compare sMinuscules identiques: suivante 


$autre INX 
LDA CMDLIST,X 
BMI $autre 
BPL S$cherche 


‘Recherche un pointeur commande 


;Un caractère d'une commande ? 
;Va tester la commande suivante 


Strouvé BEQ $synerr sPointeur nul = commande inconnu 
TAX sinon il est mis comme indice 
LDA  (ADR),Y ;Le caractère suivant l'entrée 
CMP #$0D doit être un retour chariot 
BNE S$synerr sinon erreur de syntaxe 
LDA CMDVECT,X ;Charge l'adresse de la commande 
STA XTRNADDR 
LDA CMDVECT+1,X; Idem poids fort 
STA  XTRNADDR+1 
DEY sMémorise la longueur - 1 
STY XLEN 
LDA #$00 
STA XCNUM ;sNuméro d'une commande extérieure 
STA PBITS+1 ‘Aucun paramètres autorisés 
STA PBITS 
CLC ;La commandé a été trouvé 
RTS 

$synerr SEC ‘Erreur de syntaxe 


PRECMD JMP  $0000 Saut à la commande précédente 


Vecteurs d'indirection vers les commandes 


;Vecteurs des commandes 
;Les JMP sont indispensables 
pour permettre le relogement 


LÉLRRLLELRELRLELELER ELLES LSELLELLEELEELEELLEELLEELLLLELLLELELLZ) 
* * 
* Commande LIBERE nd 
LA Supprime toutes les commandes installées par # 
* l'utilisateur, libère tous les buffers et désactive, * 
* s'11 y a lieu, les interruptions de la souris Si 
* *+ 
RÉRRÉRRRRRRRRRRRARRRRRRRRRR RNA RÉ RÉ RR RÉ RRRRRRRRRRRRRRR 
LIBERE  LDA #>XRETURN ;Renvoie le pointeur de commande 
STA  EXTRNCMD+2 ;extérlleure sur un RTS connu 


LDA #<XRETURN 
STA  EXTRNCMD+1 


LDA MOUSLOT iSouris ? 


BEQ S$noirq Pas touche à mon IRQ 
SEI 

LDA #0 ;Désactive la souris 
LDY #SETMOUSE 

JSR SOURIS 


LDA #>IRQENT 
STA IRQLOC+1 
LDA #<IRQENT 
STA IRQLOC 


sRevectorise le vecteur IRQ 


$noirq JMP  FREEBUFR ‘Libère tous les buffers et fin 


COPEPEELELELELELEEELELELE EEE LEE LEEL EEE ELLE E LEE LELELLLL ZE] 


+ * 
* Commande HEURE * 
u datation et mise à l'heure du système * 
* * 
| À * 


Pour ceux qui veulent connaître le statut de la 


Pom's n° 24 


98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
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163 
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170 
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174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 


* commande HEURE, cf J.B. POQUELIN in Oeuvres complètes * 


* * 


CETPPPPPEEELE TEE EEE EL SES LES SES SSL EEEELEEEEEEELELEEE EEE ZE EE: 


Met à jour la date du système à l'aide des touches 
montante pour incrémenter, descendante pour décrementer, 
<- et -> pour passer alternativement des Jours aux mois, 
ou aux années ou gux heures ou aux minutes. 

Les mois sont affichés en abréviations de trois lettres. 
La date affichée est celle du système où par défaut 
celle de la dernière utilisation du programme 

ou encore le 01/JAN/86 00:00. 


NN 6 % % % * 


HEURE LDA #<DATE Date du système 
STA ADR 
LDA #>DATE 
STA ADR+1 
USR TESTIME Conversion et test de la date 
BCC S$datée ;S1 le système est déjà daté 
LDA #<FIMDATE ;Date du fichier 
STA ADR 
LDA #>FIMDATE 
STA ADR+1 
UJSR TESTIME One more time 
BCC $datée ; Si le fichier est déjà daté 
LDA #86 ;Date par défaut 1 Janvier 86 
STA AA 
LDA #1 
STA MM 
LDA #1 
STA JJ 
LDA #0 Heure par défaut 00h00 
STA HH 
STA MN 
$datée LDX #0 sInitialise TAB à droite 
STX TAB 
$boucle JSR AFFICHE Boucle de mise de la date 
JSR CLAVIER 
BCC $boucle 


JSR ACTIVBL ;Active les interruptions VBL 


JSR NORMAL ;Annule un inverse éventuel 

JSR TEXT ;Efface totalement l'écran 

JSR HOME set positionne en haut à gauche 
LDA #5 ;Déconnecte inverse pour AFFICHE 
STA TAB 

JSR AFFICHE Affichage définitif 

LDA #1 sProtége la première ligne 

STA WNDTOP 

LDA #$FF sAutorise l'affichage de l'heure 
STA AFFLAG 

JSR  SAUVHEUR ; Sauvegarde heure et date système 
CLC ;Pas d'erreur (sinon code dans À) 
RTS This is the end my friend 


* Conversion et test de la date 


* Conversion de la date sur 4 octets pointés par (ADR) 
* Test de validité puis mémorisation dans MN,HH,JJ,MM, AA 


TESTIME LDY #3 


LDA (ADR),Y ‘Heure 

CMP #24 

BCC Shok 

LDA, #0 :S1 heure fausse, mise à 0 
$hok STA HH 

DEY 

LDA (ADR),Y Minute 

CMP #60 

BCC S$mnok 

LDA #0 ; Si minute fausse, mise à 0 


S$mnok STA MN 


DEY Année 

LDA (ADR),Y 

CMP #200 ‘Non daté si année > 100 
BCS S$nodate 

LSR 

STA AA 

DEY ;Mois ‘ 
LDA (ADR),Y 

TAX 
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BEQ $nodate 
CMP #13 ; ou > 12 
BCS S$nodate 

STA MM 


TXA ‘Jour 
AND #$1Fr 
BEQ $nodate 
STA JJ 


$nodate SEC 


* 


Conversion inverse de la date 


Conversion de la date JJ,MM,AA et de l'heure HH,MN 


Non daté si le mois est < 0 


‘Non daté si le jour est = 0 


* 


puis sauvegarde dans les adresses système et fichier * 


SAUVHEUR LDA HH 


* 


* 


CLAVIER JSR 


TS 
$retour CLC 
TS 


$gauche CPY #4 


STA DATE+3 
STA FIMDATE+3 
LDA MN 

STA DATE+2 
STA FIMDATE+2 
LDA MM 

ASL 

ASL 

ASL 

ASL 

ASL 


STA DATE+1 
STA FIMDATE+1 


Gestion du clavier 


Incréments et décrements suivant les flèches 


Retour avec le carry mis en cas de retour chariot 


RDKEY 

LDY TAB 
ORDRE, Y 

CMP #$95 ;Flèche --> 

BE $droite 

CMP #$A0 

BEQ S$droite 

CMP #$88 ‘Flèche <-- 

BEQ S$gauche 

CMP #$8A ‘Flèche descendante 

BEQ S$décréme 

CMP 4#$BC 

BEQ $décréme 

CMP #$8B 

BEQ S$incréme 

CMP  #$BE 

BEQ S$incréme 

CMP #$8D 

BNE $retour 

SEC 


;Signe "<" (IIt+) 
;Flèche montante 


Signe ">" (II+) 


BCC S$nondroi 


LDY #0 ‘Retour à droite 


Snondroi STY TAB 


$droite DEY 


BPL $retour 





‘Idem 80 colonnes (sauf //c) 


;Tabulation vers la gauche 


;Tabulation vers la droite 


$nongau STY 


$incréme INC 


S$décréme LDA 


Affichage 


* Affiche le 
* et l'heure 


AFFICHE JSR 
JSR 


S$boucle TYA 


S$normal 


$dizaine 


$resto PLA 


S$affmois ASL 


$letrois LDA 


S$Snongau 


. #4 


TAB 
$retour 


DATAB, X 
MAX,X 
DATAB, X 
$retour 
MIN, X 
DATAB, X 


$incréme 
$retour 


MIN,X 
DATAB, X 
DATAB, X 
$retour 
MAX, X 
DATAB, X 


S$Sdécréme 
$retour 


de la date 





sRetour à gauche 


sIncrémente suivant valeur de TAB 
Compare avec le maximum 

sRevient au minimum 

sIncrémente en chaine 

; successivement MN,HH,JJ, MM, AA 

; Compare avec le minimum 
sDécrémente suivant valeur de TAB 
sRevient au maximum 


sDécrémente en chaîne 
; successivement MN,HH,JJ, MM, AA 


jour, le mois (en 3 lettres), l'année 
suivant les valeur de JJ,MM, AA, HH,MN. 


CROUT 
up 


#4 


NORMAL 


ESPACE, Y 
OUTDO 


TAB 
S$normal 
INVERSE 


ORDRE, Y 
DATAB, X 
#1 
$Saffmois 


#10 
$dizaine 
#"0o" 
OUTDO 
#00 
LINPRT 


$boucle 


|Sletrois 


$resto 


‘Bord gauche de la fenêtre que 
{l'on soit en 40 ou 80 colonnes 


; Sauvegarde Y 
;Passage en mode vidéo normal 


Affiche caractère d'espacement 


‘Affichage en inverse suivant TAB 


; Successivement JJ,MM, AA, HH,MN 


;:S$1 ce n'est mois c'est donc ... 


; Si strictement inférieur à 10, 
;affiche un zéro en plus 


Affiche X (car A=0) 
;c-èà-d successivement JU, AA, HH, MN 


‘Restaure Y 


; MM x 3 


;Boucle sur les trois lettres 


Affiche un des 3 caractères 


‘Suite 


* Activation des interruptions 


* Active la souris afin d'autoriser les interruptions VBL 
* donc une fréquence de branchement vers IRQ50HZ de 50Hz 


ACTIVBL LDA 
BEQ 
SEI 


MOUSLOT 
$noirq 


; Teste s'il y a une souris 
; sinon pas d'interruption 
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444 
445 


$vectirqg+l ;Revectorise l'interruption IRQ 
IRQLOC 

$vectirq+2 

IRQLOC+1 

#INITMOUSE ;Initialise la souris 

SOURIS 
LDA #8 
#SETMOUSE 
SOURIS 


Active la souris et autorise 
‘les interruptions VBL 


S$noirq 


$vectirq JMP IRQ50HZ ;Adresse de l'interruption (rel) 


*  Sous-programmes souris 
* 


* 


Appelle un sous-programme souris pointé par Y dans la 
table de la carte souris (contrairement aux programmes 
cette table est à la même place pour un //c et un //e) 


% 


* 


SOURIS PHA ;Préserve un éventuel paramètre 
LDX #0 ; ADR <— adresse de la souris 
STX ADR ; (et non son numéro de téléphone) 
LDX MOUSLOT :$Cn dans X avec n = slot souris 
STX ADR+1 
LDA (ADR),Y Poids faible du sous-programme 
STA ADR dans le vecteur d'indirection 
TXA ;Duplique $Cn dans À 
ASL 
ASL 
ASL 
ASL 
TAY ;$n0 dans Y 
PLA sRécupère À 
JMP (ADR) sProgramme souris correspondant 


HÉRARRRRÉRAÉARÉÉRRRRÉ ER ÉRARÉÉ ER ÉRAAÉAÉ ERA AAA ÉÉRRERR 


* 


* 

*  IRQ50HZ : Gestion des interruptions dues au balayage * 
* vertical de l'écran toutes les 20 millisecondes (50Hz) * 
*  Maintient le système à l'heure et l'affiche sur la * 
* première ligne de l'écran si celle-ci est protégée * 
* 
* 


ÉÉLÉFEEÉELLELESLELLSSELLILLLLEEELEELEEEEELLEEEELLLLL LL, LLELZL: 


IRQO5OHZ SEI 


LDA sPréserve ADR, Acc, X, Y 


SAVY 

LDA #0 
#SETMOUSE 
SOURIS 
#SERVEMOUSE; Origine de l'interruption 
SOURIS 
S$notre 
SAVE 


;Mode inactif 


;C'est à nous 
;Sinon, récupère ADR, Acc, X, Y 


SAVA 
IRQENT 
NWNDTOP 
#1 
$okflag 
#0 ;Sinon plus d'affichage 
AFFLAG 
DEC HZ 
$seconde 
Sfinirq 


‘C'est pas à nous 


$notre La lière ligne est protégée ? 


$okflag 
25 interruptions (1/2 s.) ? 
; (Branchement trop long) 


S$seconde LDA MAXHZ 
STA HE 

AFFLAG 
$noclign 
#$op 
APPLEID 
S$clign40 
RD80VID 


‘init. compteur d'interruptions 


Test le drapeau d'affichage 
551 = 0 pas de ":" clignotant 
‘Position du “:" en 40 colonnes 
;II 6 Il+ ou //e & //c ? 


sAffichage 80 colonnes ? 


446 
447 
448 
449 
450 
451 

452 
453 
454 
455 
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457 
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462 
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471 
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497 
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517 
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519 
520 
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522 
523 

524 
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529 
530 
531 
532 





$clign40 


LDX #$06 Position du ":" en 80 colonnes 
S$clign40 LDA #$1A Fait clignoter le ":" 

EOR LINEI,X 

STA LINEI,X 
Snoclign DEC SC 

BNE S$finirq ;60 secondes ? 

LDA #120 ; Compteur des 1/2 secondes 

STA SC 

INC DATE+2 ;incrémente les minutes (système) 

LDA DATE+2 

CMP #60 

BNE S$montre 

LDA #0 

STA DATE+2 

INC DATE+3 ;Incrémente les heures (système) 

LDA DATE+3 

LDY #"9" ;Maximum des unités des heures 

CMP #24 

BNE S$montre 

LDA #0 

STA DATE+3 

LDY #"3" ;Maximum modifié si HH = 23 heures 
$Smontre LDA AFFLAG ‘Affichage autorisé ? 

BEQ S$Sfinirq Sinon interruption terminée 

STY MAXIRQ+1 iMémorise le maximum des heures 

LDY #15 ‘Pointe sur l'unité des minutes 
$incréme TYA 

BIT APPLEID ;:II & II+ ou //e & //c ? 

BPL S$cadran 

BIT RD80VID Affichage 80 colonnes ? 

BPL $cadran 

LSR ;Divise par 2 et test de parité 

BCS $cadran ; Si impaire => mémoire principale 

BIT TXTPAGE2 ;sinon => mémoire principale 
S$cadran TAX 

INC LINEI,X sIncrémente un chiffre suivant X 

LDA MAXIRQ-11,Y;Maximum dépassé ? 

CMP LINEI,X 

BCS S$Sfinirq ; sinon fin 

LDA #"0" ‘si oui remise à zéro 

STA LINEI,X 
S$double DEY set pointe le chiffre suivant 

CPY #13 Pointe sur ":" ? 

BEQ S$double 31 oui pointe le chiffre suivant 

BIT TXTPAGEL ;Remet la mémoire principale 

CPY #10 

BNE S$incréme sIncrémente en chaîne 
Sfinirq BIT TXTPAGEI 

LDA #8 sInterrution VBL 

LDY #SETMOUSE 

JSR SOURIS 

LDA SAVE sRécupère ADR, Acc, X, Y 

STA ADR 

LDA SAVE+1 

STA ADR+#1 

LDY SAVY 

LDX SAVX 

LDA SAVA 

CLI 

RTI 


CELLLLLLLLLLILELELEEEELE EEE EEE LE ELELLLSEELLELLLILLSLLLELELLLELE) 
* * 
» Zone des variables et constantes des divers modules * 
* * 


PATLLILIILILILILILILELLILLLLLLLLLLELELEEEEEE LE EL LLELELLLE.E) 
. 


DFB 0 sSéparateur 


* Constantes de l'interpréteur de commandes 


* ee 


* Les caractères sont en ASCII négatif 
* Les pointeurs sont toujours inférieur à $80 


CMDLIST EQU * 


ASC "LIBERE" 

DFB CMDS-CMDVECT+1;Pointeur et séparateur 
ASC "HEURE" 

DFB  CMDH-CMDVECT+1; Idem 

DFB 0 iSéparateur final 


* Variables du module HEURE 
* 
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533 554 





534 DATAB EQU * 555 
535 AA DS L ‘Année 556 * Variables et constantes du module d'interruption 
536 MM DS 1 ;Mois 557 # mn 
537 JJ DS 1 ; Jour 558 
538 HH DS 1 Heure 559 SAVE DS 2 ; Sauvegarde des adresses $FE, $FF 
539 MN DS 1 Minute 560 SAVA DS 1 ;Idem Accumulateur 
540 TAB DS 1 ; Tabulation 561 SAVX DS 1 ;Idem X 
541 MOUSLOT DS 1 Slot souris ou sinon = 0 562 SAVY DS 1 ‘Idem Y 
542 563 
543 *  Constantes alphanumériques du module HEURE 564 AFFLAG DS 1 ‘Drapeau indicateur d'affichage 
SAC À osseuse 565 APPLEID DS 1 ;identificateur. $FF si //e & //c 
545 566 MAXHZ ps 1 Fréquence: 60 Hz sauf //c : 50 Hz 
546 MOIS ASC "JANFEVMAR" 567 HZ DFB 30 ; Compteur d'interruptions 
547 ASC "AVRMAIJUN" 568 SC DFB 120 ; Compteur des demi-secondes 
548 ASC "JULAOUSEP" 569 MAXIRQ DFB "2","9",0,"5","9";Maximum pour chaque chiffre 
549 ASC "OCTNOVDEC" 570 
550 ESPACE ASC ": //" 571 *mmmmmnnmmn nn RER MERE ESS SSSR ES SS ESS SSS ESS SES S ESS * 
551 ORDRE DFB 4,3,0,1,2 ;Ordre mémoire de MN,HH,AA, MM, JJ 572 * Taille du programe à reloger 
552 MAX DFB 99,12,31,23,59;Maximum de AA,MM,JJ, HH,MN 573 
553 MIN DFB 0,1,1,0,0 ;Minimum de AA,MM,JJ, HH,MN 574 NBPAG EQU *-DEBUT+$FF; Nombre de pages à reloger 
_ = à 6160- 9E 8D 07 BE AD 4C 64 FO 6308- F6 FO E7 AD 4C 64 FO 1A 
Récapitulation 6168- 13 78 A9 00 AO 12 20 2E 6310- 78 AD 2C 63 8D FE 03 AD 
£ 3; 6170- 63 A9 BF 8D FF 03 A9 EB 6318- 2D 63 8D FF 03 A0 19 20 
DA THEUR 6178- 8D FE 03 58 4C F8 BE A9 6320- 2E 63 A9 08 AO 12 20 2E 
6180- 90 85 FE A9 BF 85 FF 20 6328- 63 58 60 4C 46 63 48 A2 
Après avoir saisi ce code sous 6188- DF 61 90 24 A9 BE 85 FE 6330- 00 86 FE AE 4C 64 86 FF 
moniteur, vous le sauvegarderez par 6190- A9 BE 85 FF 20 DF 61 90 6338- B1 FE 85 FE 8A OA OA OA 
BSAVE DATHEUR,A$6000,L$494 6198- 17 A9 56 8D 46 64 A9 01 6340- OA A8 68 6C FE 00 78 A5 
61A0- 8D 47 64 A9 01 8D 48 64 6348- FE 8D 85 64 A5 FF 8D 86 
6000- 20 BA 60 AD 98 BF A2 19 61A8- A9 00 8D 49 64 8D 4A 64 6350- 64 A5 45 8D 87 64 8E 88 
6008- C9 BA FO 02 A2 1E 8E 8C 61B0- A2 00 8E 4B 64 20 BE 62 6358- 64 8C 89 64 A9 00 AO 12 
6010- 64 A2 00 29 88 FO 02 A2 61B8- 20 4F 62 90 F8 20 0B 63 6360- 20 2E 63 A0 13 20 2E 63 
6018- FF 8E 8B 64 AD 08 BE 8D 61C0- 20 73 F2 20 99 F3 20 58 6368- 90 16 AD 85 64 85 FE AD 
6020- 53 61 AD 07 BE 8D 52 61 61C8- FC A9 05 8D 4B 64 20 BE 6370- 86 64 85 FF AC 89 64 AE 
6028- A9 04 20 F5 BE C9 OC DO 61D0- 62 A9 01 85 22 A9 FF 8D 6378- 88 64 AD 87 64 4C EB BF 
6030- 03 4C 09 BE 8D 08 BE 85 61D8- 8A 64 20 21 62 18 60 AO 6380- A5 22 C9 01 FO 05 A9 00 
6038- FF A9 00 8D 07 BE 85 FE 61E0- 03 B1 FE C9 18 90 02 A9 6388- 8D 8A 64 CE 8D 64 FO 03 
6040- A9 61 85 3B A9 00 85 3A 61E8- 00 8D 49 64 88 B1 FE C9 6390- 4C 18 64 AD 8C 64 8D 8D 
6048- 20 62 60 20 57 61 A9 07 61F0- 3C 90 02 A9 00 8D 4A 64 6398- 64 AD 8A 64 FO 16 A2 OD 
6050- 8D B4 BE A9 C3 20 70 BE 61F8- 88 B1 FE C9 C8 BO 20 4A 63A0- 2C 8B 64 10 07 2C 1F CO 
6058- 90 06 20 8D BE 4C 09 BE 6200- 8D 46 64 88 B1l FE AA 6A 63A8- 10 02 A2 06 A9 1A SD 00 
6060- 18 60 A2 00 AO FF A1 3A 6208- 4A 4A 4A 4A FO 11 C9 OD 63B0- 04 9D 00 04 CE 8E 64 DO 
6068- FO 31 20 8C F8 A4 2F CO 6210- BO OD 8D 47 64 8A 29 1F 63B8- 5F A9 78 8D 8E 64 EE 92 
6070- 02 DO 28 Bl 3A C9 BF DO 6218- F0 05 8D 48 64 18 60 38 63C0- BF AD 92 BF C9 3C DO 18 
6078- 10 88 B1 3A C9 00 DO 09 6220- 60 AD 49 64 8D 93 BF 8D 63C8- A9 00 8D 92 BF EE 93 BF 
6080- 88 B1l 3A AO 05 C9 20 FO 6228- C1 BE AD 4A 64 8D 92 BF 63D0- AD 93 BF A0 B9 C9 18 DO 
6088- 02 A0 02 B1l 3A 38 E9 61 6230- 8D CO BE AD 47 64 OA OA 63D8- 07 A9 00 8D 93 BF AO B3 
6090- 90 09 C9 04 BO 05 6D 08 6238- OA OA 0A OD 48 64 8D 90 63E0- AD 8A 64 F0 33 8C 90 64 
6098- BE 91 3A A2 00 C8 A1 3A 6240- BF 8D BE BE AD 46 64 2A 63E8- A0 OF 98 2C 8B 64 10 0B 
60A0- 81 FE E6 3A E6 FE DO OA 6248- 8D 91 BF 8D BF BE 60 20 63F0- 2C 1F C0 10 06 4A BO 03 
60A8- E6 3B E6 FF A9 65 C5 3B 6250- OC FD AC 4B 64 BE 76 64 63F8- 2C 55 CO AA FE 00 04 B9 
60B0- FO 07 88 30 E6 DO E7 FO 6258- C9 95 FO 2C C9 AO FO 28 6400- 84 64 DD 00 04 BO 11 A9 
60B8- A9 60 A9 C8 85 FF A9 00 6260- C9 88 FO 18 C9 8A FO 40 6408- BO 9D 00 04 88 CO OD FO 
60C0- 85 FE A2 07 C6 FF CA 30 6268- C9 BC FO 3C C9 8B FO 22 6410- FB 2C 54 CO CO OA DO D2 
60C8- 2E AO 05 A9 38 D1 FE DO 6270- C9 BE F0 1E C9 8D DO 02 6418- 2C 54 CO A9 08 A0 12 20 
60D0- F3 A0 07 A9 18 D1 FE DO 6278- 38 60 18 60 CO 04 C8 90 6420- 2E 63 AD 85 64 85 FE AD 
60D8- EB A0 0B A9 01 D1 FE DO 6280- 02 A0 00 8C 4B 64 10 F2 6428- 86 64 85 FF AC 89 64 AE 
60E0- E3 A0 OC A9 20 D1 FE DO 6288- 88 10 02 AO 04 8C 4B 64 6430- 88 64 AD 87 64 58 40 00 
60E8- DB A0 FB A9 D6 D1 FE DO 6290- 10 E8 FE 46 64 BD 7B 64 6438- CC C9 C2 C5 D2 C5 01 C8 
60F0- D3 A5 FF 8D 4C 64 60 A9 6298- DD 46 64 B0 DD BD 80 64 6440- C5 D5 D2 C5 04 00 00 00 
60F8- 00 8D 4C 64 60 00 00 00 62A0- 9D 46 64 CA 10 EC 30 D2 6448- 00 00 00 00 00 CA C1 CE 
6100- D8 AD 6C BE 85 FE AD 6D 62A8- BD 80 64 DD 46 64 DE 46 6450- C6 C5 D6 CD C1 D2 C1 D6 
6108- BE 85 FF A2 FF AO 00 E8 62B0- 64 90 C7 BD 7B 64 9D 46 6458- D2 CD C1 C9 CA D5 CE CA 
6110- C8 BD 38 64 10 14 29 7F 62B8- 64 CA 10 EC 30 BC 20 8E 6460- D5 CC C1 CF D5 D3 C5 DO 
6118- D1 FE FO F3 49 20 D1 FE 62C0- FD 20 1A FC A0 04 98 48 6468- CF C3 D4 CE CF D6 C4 C5 
6120- FO ED E8 BD 38 64 30 FA 62C8- 20 73 F2 B9 71 64 20 5C 6470- C3 BA A0 AF AF A0 04 03 
6128- 10 E3 FO 24 AA B1 FE C9 62D0- DB CC 4B 64 DO 03 20 77 6478- 00 01 02 63 OC 1F 17 3B 
6130- OD DO 1D BD 54 61 8D 50 62D8- F2 BE 76 64 BD 46 64 EO 6480- 00 01 01 00 00 00 00 00 
6138- BE BD 55 61 8D 51 BE 88 62E0- 01 FO 15 AA EO OA BO 05 6488- 00 00 00 00 00 1E 78 B2 
6140- 8C 52 BE A9 00 8D 53 BE 62E8- A9 BO 20 5C DB A9 00 20 6490- B9 00 B5 B9 
6148- 8D 55 BE 8D 54 BE 18 60 62F0- 24 ED 68 A8 88 10 CF 60 
6150- 38 4C 00 00 4C 5A 61 4C 62F8- OA 6D 47 64 AA AO 03 BD 
6158- 7F 61 A9 BE 8D 08 BE A9 6300- 4A 64 20 5C DB E8 88 DO 
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Tokæenisation de chaines 
et équations paramétriques 


G Zwingelstein 


yant apprécié et utilisé 

le programme Tokfon, 

permettant de modifier 

la définition d'une 
fonction en Basic proposé par 
Gilles Mauffrey dans le numéro 
11 de Pom's sous le titre : “Tracé 
de courbe en conversationnel”, 
j'ai néanmoins eu besoin de le 
modifier, car le programme sur 
lequel je travaillais nécessitait la 
modification de deux fonctions 
prédéfinies. 


La version proposée ici permet 
donc de redéfinir n'importe quelle 
fonction définie par la commande 
DEF FN YY(X) dans un 
programme, quelle que soit sa 
place, en lui fournissant la 
nouvelle définition de la fonction 
sous forme d'une chaîne de 
caractères, cette chaine pouvant 
résulter d'une formule. 


Programme 


‘PARAMETRIQUE’ 


Après avoir BLOADer le 
programme “MODIF FN”, la 
fonction définie par DEF FN 
YY(Z)=... peut être modifiée par 
CALL ZZZZ,X$ FN YY où : 


+ ZZZZ est l'adresse où est 
chargé "MODIF FN", celui-ci 
étant relogeable (l'adresse par 
défaut est $300) ; 


+ X$ est la chaine contenant la 
nouvelle formule ; 


e YY est le nom de la fonction 
prédéfinie. 


Le programme dont le source 
"MODIF FN.S" a été développé 
sur l'assembleur MERLIN se 
charge alors de “tokeniser" la 
chaîne, puis de la mettre à la place 
de l'ancienne définition, à 
condition que : 


+ la chaine évaluée n'ait pas une 
longueur nulle (ILLEGAL 
QUANTITY ERROR) ; 


1060 
1070 D$ = 
1080 


+ la fonction ait déja été définie 
(UNDEF FUNCTION 
ERROR) ; 


+ la place soit suffisante 
(STRING TOO LONG). 


Il termine ensuite si nécessaire la 
définition par deux points puis le 
token de REM, pour que le 
programme BASIC n'interprète 
pas les codes pouvant résulter 
d'une définition plus courte que 
les précédentes. 


Comme exemple d'utilisation, le 
programme PARAMETRIQUE 
permet de tracer des courbes 
paramétriques définies par deux 
fonctions d'un paramètre T, l'une 
suivant l'axe X horizontal, l'autre 
suivant l'axe YŸ vertical. 


DIM X(PA),Y (PA) 
CHR$ (4) 
PRINT D$"BLOAD MODIF FN" 


1100 REM BOUCLE DES FONCTIONS 
10 GOTO 1000 1110 GOSUB 2000 
1000 REM PROGRAMME PRINCIPAL 1120 GOSUB 3000 
1010 TEXT : HOME 1130 GOSUB 4000 
1020 DEF FN X(T) = T: REM GGG6@GC@R@R@@@eeGeeeee 1140 GOSUB 5000 
CECCCCEEEECEREREECECERERELECECEREEEEEREEEERE 1150 GOSUB 6000 
CECEECERECEECCCECERERERECECEECECERECECEEEEEER 1160 GET A$ 
CECEEEEEECCECEECEREREREEEEERECERERECEREEEEEE 1170 TEXT 
CCCCCCCEECCCCCECERERERECECECCECEECEREEECEEER 1200 REM AUTRE FONCTION OÙ VALEUR 
CCEECECCEEEEEEEEEEEEEE 1210 VTAB 24: HTAB l: PRINT "D'AUTRES VALEURS POU 
1030 DEF FN Y(T) = T: REM @@@@@@GGGe@Reeeeeeeeee RAT (O/NS 5°" 
CECCCCECECCEECERECECERCECCECCECECECEREEEEEER 1220 GET A$: IF A$ < > "O" AND A$ < > "N" THEN 
CECCECECERERERERERECERCEREEECECEREECECEERERE 1220 
CECCCCEERCCECCEEECECECCECCECECEECCEEECEEEREEE 1230 HTAB l: CALL - 958 
CECECECERECERERERCECERECECCEECEEERECEREEEEEEE 1240 IF A$ = "O" THEN 1120 
ECEEEEEEEREEEEEEEREEEE 1250 VTAB 24: HTAB l: PRINT "D'AUTRES FONCTIONS ( 
1040 X1 = O:X2 = 279:Y1 = O0:Y2 = 191: REM LIMITES O/N) : "; 
DE L'ECRAN 1260 GET A$: IF A$ < > "O" AND A$ < > "N" THEN 
1050 PA = 280: REM NOMBRE DE PAS POUR TRACER LA FO 1260 
NCTION 1270 HTAB 1: CALL - 958 
1055 REM IL FAUDRA ATTENDRE ENVIRON : 1280 IF A$ = "O" THEN 1110 
1056 REM PA / 20 + 1990 HOME : END 
1057 REM NOMBRE DE FONCTIONS TRANSCENDANTES (COS, 2000 REM ENTREE DES FONCTIONS 
SIN,EXP...) * PA / 40 + 2010 VTAB 1: HTAB 5: PRINT "TRACE D'UNE COURBE PA 
1058 REM NOMBRE DE DIVISIONS ET MULTIPLICATIONS * RAMETRIQUE" 
PA / 400 2020 VTAB 4: PRINT "DONNER LES EQUATIONS EN FONCT 
1059 REM SECONDES ION DU TEMPS (EXEMPLE : "3*COS(T)+T')" 
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2030 
2040 
2050 
2100 
2110 


2120 
2130 
2140 
2200 
2210 


2220 
2230 
2240 
2250 
3000 
3010 


3020 
3030 
3040 
3050 
3060 
3070 


3080 
4000 
4010 
4020 
4030 
4040 
4050 
4100 
4110 


4120 
4130 
4140 


4150 


4160 
4170 
4180 
4190 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5200 
5210 
5220 
5230 





GOSUB 2100 

GOSUB 2200 

RETURN 

REM 

VTAB 8: HTAB 1: PRINT "DONNER LA FONCTION PO 
UR L'AXE DES X :" 

VTAB 10: PRINT F1$ 

VTAB 10: INPUT "";F1$ 

RETURN 

REM 

VTAB 13: HTAB l: PRINT "DONNER LA FONCTION P 
OUR L'AXE DES Y :" 

VTAB 15: PRINT F2$ 

VTAB 15: INPUT "";F2$ 

RETURN 

RETURN 

REM ENTREE DES LIMITES POUR T 

VTAB 18: HTAB l: PRINT "VALEUR MIN POUR T : 
rTir 

HTAB 21: INPUT "";T$ 
T1 = VAL (T$) 

VTAB 20: PRINT "VALEUR MAX POUR T : ";T2; 
HTAB 21: INPUT "";T$ 
T2 = VAL (T$) 

IF T2 = Tl THEN MG$ = "VALEUR MIN ET MAX DIF 
FERENTES": GOSUB 7000: GOTO 3000 

GOSUB 8000: RETURN 

REM INSERTION DES FONCTIONS 

ONERR GOTO 4100 

CALL 768,F1$ FN X 

CALL 768,F2$ FN Y 

POKE 216,0 

RETURN 

REM ERREUR INSERTION FONCTION 

CALL 62248: REM REMET LE STACK POINTER COMME 

IL ETAIT AVANT L'ERREUR 

GOSUB 10000 
A$ = "X'": IF EL = 4030 THEN A$ = "y" 

IF ER = 53 THEN MG$ = "PAS DE FONCTION " + À 
$ 

IF ER = 176 THEN MG$ = "FONCTION " + ÀA$ + " 
TROP LONGUE" 

GOSUB 7000 

IF A$ = "X" THEN GOSUB 2100 

IF A$ = "Y" THEN GOSUB 2200 

GOSUB 8000: RESUME 

REM CALCUL MAX. ET MIN. 
MG$ = "UN INSTANT SVP": GOSUB 7000 

ONERR GOTO 5200 
M1 = FN X(T1):M2 M1 
N1 = FN Y(T1):N2 = N1 

FOR I = O0 TO PA 
T =, T1 #1 *° (T2 = T1) ./ PA 
X(I) = FN XI{T) 
Y(I) = FN Y{T) 


IF X(I) < M1 THEN M1 = X{I) 
IF X(I) > M2 THEN M2 = X{(I) 
IF Y(I) < N1 THEN N1 = Y{I) 
IF Y(I) > N2 THEN N2 = Y{I) 


NEXT I 
A = 1 / (M2 - M1) 
À = 1 / (N2 - N1) 

GOSUB 8000 

POKE 216,0 

RETURN 

REM ERREUR CALCUL FONCTION 

CALL 62248: REM CF LIGNE 4110 

GOSUB 10000 

IF EL = 5140 THEN M2 = M1 + 1: RESUME 


5240 IF EL = 5150 THEN N2 = N2 + l: RESUME 

5250 A$ = "X": IF EL = 5040 OR EL = 5080 OR EL = 5 
150 THEN A$ = "y" 

5260 IF ER < > 69 AND ER < > 133 THEN MG$ = "ER 
REUR DE SYNTAX POUR LA FONCTION " + A$: GOTO 

5290 

5270 IF ER = 69 THEN MG$ = "DEPASSEMENT POUR LA F 
ONCTION " + A$ 

5280 IF ER = 133 THEN MG$ = "DIVISION PAR O POUR 
LA FONCTION " + A$ 

5290 GOSUB 7000 

5300 IF A$ = "X" THEN GOSUB 2100 

5310 IF A$ = "Y" THEN GOSUB 2200 

5320 POP : GOTO 1130 

6000 REM TRACE DE LA COURBE 

6010 HGR2 : HCOLOR= 3 

6020 HPLOT (X(0) - M1) * (X2 - X1) / (M2 - M1),(Y 
2 = Y1) «— (É{(0) = NT) À (X2 = YA) :/ NZ ='NI 
) 

6030 FOR I = 1 TO PA 

6040 HPLOT TO (X(I) - M1) * (X2 - X1) / (M2 - M1 
), (Y2 = Y1) -— (Y(I) .- N1) * (Y2 - Y1) / (N2 
- N1) 

6050 NEXT I 

6060 RETURN 

7000 REM AFFICHE MESSAGE EN LIGNE 24 

7005 GOSUB 8000 

7010 INVERSE 

7020 VTAB 24: HTAB (40 - LEN (MG$)) / 2: PRINT M 
G$; 

7030 NORMAL : RETURN 

8000 REM EFFACE MESSAGE EN LIGNE 24 

8010 VTAB 24: HTAB 1: CALL - 958: RETURN 

10000 REM NUMERO ET LIGNE ERREUR 

10010 ER = PEEK (222) 

10020 EL = PEEK (218) + 256 * PEEK (219) 

10030 RETURN 


Récapitulation 
‘MODIF FN° 


Après avoir saisi ce code sous moniteur, vous le 
Sauvegarderez par BSAVE MODIF 
FN,A$300,L$7E 


0300- 20 06 E3 20 BE DE 20 7B 
0308- DD 20 FD ES5 A8 FO 69 A9 
0310- 00 99 00 02 88 B1l 5E 99 
0318- 00 02 88 10 F8 A5 B8 48 
0320- A5 B9 48 A9 02 85 B9 A9 
0328- 00 85 B8 20 59 D5 84 OF 
0330- 68 85 B9 68 85 B8 20 41 
0338- E3 AO 01 B1 8A FO 36 85 
0340- 5F 88 B1 8A 85 5E B1l 5E 
05348- FO 03 C8 DO F9 98 AA FO 
0350- 2A 18 69 05 38 E5 OF 90 
0358- 22 AO 00 B9 00 02 FO 08 
0360- 91 5E C8 CA DO F5 FO OC 
0368- A9 3A 91 5E C8 CA FO 04 
0370- A9 B2 91 5E 60 4C O0E E3 
0378- 4C 99 El 4C B2 ES 
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Source ‘T.MODIF FN’ 
Assembleur MERLIN 


BH kb kb hs ba kb ka 
© D JDN UN hs © Lo © y o Un U NA ba 


N ND 
kh © 


N N ND D N D 
Sn GO = w N 


N 
Lo) 


&@ U& N 
h © 


U U GO & CL 
Sn GS & N 


38 
39 


40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
91 

52 
53 
54 
55 
56 
57 


50 


59 
60 


RRRARRRARÉRAAAAAÉARÉRÉRARÉEÉRÉ RER EE 
* 


* 
” INSERTION D'UNE CHAINE S 
* TOKENISEE DANS LA DEFINITION * 
*  D'UNE FONCTION DANS UN PRMG * 
* 
* 


* 


RAM MN A AA AN D D D D of D ok ee À À 


* (PROGRAMME RELOGEABLE) 


* SYNTAX : CALL 768,X$ FN YY 

* TRANSFORME EN TOKEN LA FORMULE DANS X$, ET 
* LA DEPLACE DANS LA DEFINITION DE LA FONCTIO 
* N YY (X$ PEUT ETRE UNE FORMULE DONNANT UNE 


* CHAINE, EX : CALL 768,A$+"+"4+BS FN YY ) 
REM = $B2 ; TOKEN DE REM 
PNTR = $0F ; CONTIENT LG CHAINE 
INDEX = $5E 
FNCNAM $8A / CONTIENT ADR VARIAB 
LE FONCTION 
TXTPTR = $B8 
IN = $200 ; BUFFER ENTREE 
GETIN = $D559 ; ROUTINE DE 
/ CONVERSION EN TOKEN 
PARSE = $D56C  CONVERTIS EN TOKEN 
À PARTIR DE $200+X 
CHKSTR = $DD6C / CHECK LAST RESULT = 
STRING 
FRMEVL = $DD7B “EVALUE FORMULE 
CHKCOM = $DEBE ; CHECK ,' 
PTRGET = $SDFE3 ; RECUPERER ADRESSE V 
AR. À TXTPTR 
IQOERR = $E199 ; “ILLEGAL QUANTITY" 
ERRDIR = $E306 ; CHECK MODE PROGRAMM 
UNDFNC = $E30E ; “UNDEF FUNCTION" 
FNC? $E341 ; CHECK TOKEN DE ‘'FN' 
“ET RETOURNE LE POIN 
; TEUR VERS LA VARIAB 
LE CONTENANT LES PARAMETRES D 
E LA FONCTION 
STRLONG = $E5B2 ; "STRING TOO LONG" 
FRESTR $E5FD / CHECK STRING ET RET 


OURNE ADRS ET LONG 


* UNE VARIABLE REPRESENTANT UNE FONCTION 

* (EX : DEF FN AB(CD)=...) EST CODEE : 

* — 1IER CAR EN ASCII NEGATIF (= "A") 

* — 2IEME CAR EN ASCII POSITIF (= 'B') 

* — ADRESSE FORMULE DE LA FONCTION (2 OCTETS) 
* (POINTE APRES SIGNE = DANS DEF FN AB(CD)=.) 
* — ADRESSE ARGUMENT INFORMEL 'CD' (2 OCTETS) 
* — 1IER CAR DE L'ARGUMENT (='C') 


ORG $300 


JSR ERRDIR 
* RECUPERE CHAINE 
JSR  CHKCOM 
JSR FRMEVL 
JSR FRESTR 
TAY 
BEQ 


; ERREUR MODE DIRECT 


ERROR ; LONGUEUR = 0 


* LA TRANSFERT DANS BUFFER IN 
LDA #0 


67 


91 


96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
11/7 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 


STA 
DEY 
LDA 
STA 
DEY 
BPL 
* TOKENISE LA 
LDA 


LOOP 


STA 





IN,Y ; RAJOUTE ‘O0' DE FIN 
(INDEX) ,Y 


IN,Y 


LOOP 
FONCTION 
TXTPTR 


TXTPTR+1 


#>IN 

TXTPTR+1 ; (FACULTATIF : 
TILISE DANS GETIN) 

#<IN 

TXTPTR 

GETIN 7;Y = NBRE CAR DE FN 
PNTR ; SAUVE LONGUEUR FN 


NON U 


TXTPTR+1 


TXTPTR 


* RECUPERE ADRESSE FONCTION 


JSR 


STA 
* VERIFIE QUE 
CHKPLCE  LDA 

BEQ 

INY 

BNE 
* 


FINLIGNE TYA 

TAX 
BEQ 
CLC 
ADC 
SEC 
SBC 
BCC 


FNC? 

#1 

(FNCNAM) , Y 
UNDEF 
INDEX+1 


FN NON DEFINIE 


(FNCNAM) , Y 

INDEX 

LA PLACE EST SUFFISANTE 
(INDEX) ,Y 
FINLIGNE ; (O=FIN LIGNE BASIC) 


CHKPLCE ; TOUJOURS 


ERROR2 ; PAS DE PLACE 


#5 “AJUSTE POUR PNTR 
PNTR 


ERROR2 ; PAS ASSEZ DE PLACE 


* TRANSFERT NOUVELLE FONCTION 


LOOP2 


BEQ 
* RAJOUTE 
FINIR LDA 
STA 
INY 
DEX 
BEQ 
LDA 
STA 


* 


END RTS 


* TRAITEMENT 
UNDEF JMP 
ERROR UMP 


ERROR2 JMP 


#0 

IN, Y 
FINIR 
(INDEX) ,Y 


LOOR2 
END 
REM' 
# À e L 
(INDEX) ,Y 


PAS DE ‘: REM’ 


SI NECESSAIRE 


END 
#REM 
(INDEX) ,Y 


ERREURS 


UNDFNC /ERR "UNDEF FUNCTION 


IOERR ; "ILLEGAL QUANTITY" 


STRLONG / "STRING TOO LONG“ 
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CLM.& 88). Macintosh est une marque sous licence chez Apple Computer, Inc. 


= 4#11}} 





Tant qu'à faire 5 choses à la fois 


Que ceux qui 
aiment travailler en 
faisant deux ou trois 
choses à la fois ne 
changent rien, au 
contraire, avec 
Apple et Jazz ils 
peuvent faire mieux. 

Jazz de Lotus, c'est un programme 
créé pour Macintosh 512 Ko, équipé d’un 
lecteur externe qui permet de devenir un 
parfait jongleur professionnel. 

Cinq programmes en concert, 
c'est-à-dire un tableur, un grapheur, un 
gestionnaire de fichier, un traitement de 
texte et un programme de 
communication réunis en un seul 
programme. Ou comment être à cinq 
sur la même souris. 








Pouvoir gérer cinq applications à 
partir d’un seul écran, modifier une 
donnée dans une application et qu’elle 
se modifie automatiquement dans les 
autres, pouvoir sauter d’un graphe à un 
traitement de texte sans attendre les 
secondes qui durent une éternité pour 
changer de programme, c’est bien... 

Quand on s'aperçoit que ces cinq 
programmes sont individuellement 
excellents, c'est une révolution. 

Jazz, c'est l'outil idéal d’un directeur 
de service. 

Prenons un exemple qui exige beaucoup 
de souplesse, de rapidité, et de doigté, la 
direction des services secrets : 

- Avec un tableur capable d'afficher 
8192 lignes sur 256 colonnes, la gestion 
devient beaucoup plus facile. Si un fait 


nouveau apparaît, rien n'est plus facile 
que d'étudier deux ou trois hypothèses 
afin de ne pas être pris de court. 

- Quand un projet est fin prêt, il faut 
bien le présenter à ses supérieurs et 
parfois même beaucoup plus haut; um 
grapheur permet de transformer toutes 
les données numériques obscures en 
graphiques lumineux. 





- Si le projet est accepté, un traitement 
de texte est nécessaire pour que chaque 
agent concerné soit au courant dans ses 
moindres détails. Evidemment quand 
on travaille dans un tel service il vaut 
mieux pour Macintosh pouvoir copier, 
effacer, modifier, ou coller des dessins, à 
chaque instant. 





Apple Computer France. Avenue de l'Océanie = 


autant les faire en même temps. 








é Fichier Edition MATIERE Graphe Trace Âlte Carac. Style 


Presse-papiers 
| Tableau des réferences 


UENTES 

Marche Choco 
REPARTITION 
Directeurs Lentes 


tertrim 2émetrim 3ème trim 





















Apple, le logo Apple sont les marques déposées d'Apple Computer, Inc. 
Jazz est une marque déposée de Lotus Development Corporation. 


Feuille de travail Jazz. 





Grâce à son gestionnaire de fichier, Jazz 
fait la fusion automatique entre un 
mémo et une liste de correspondants à 
sélectionner selon un critère spécial. 

Et avec un modem full duplex 1200 bauds 
en un instant votre correspondant 
reçoit toutes les informations précises à 
l’autre bout du monde. 

Avec Jazz l'entreprise est rentable, 
rondement menée, précise et discrète, 
inutile d’avoir 35 collaborateurs pour 
rédiger le projet. 

Jazz c'est cinq programmes liés 
entre eux si parfaitement que l'agent 
double est enfin enterré, place à l'agent 
quintuple. 





Z.A. de Courtabæœuf, B.P 131, 91944 Les Ulis Cedex. 
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ÜN COMPOSEUR TELEPHONIQUE SUR 


MACINTOSH 


Suite logique aux deux derniers 
numéros de Pom's, voici le 
nécessaire pour que votre 
Macintosh ait accès au téléphone. 
Deux éléments pour ce faire : une 
petite carte électronique simple à 
réaliser, et un programme. 


La carte 


Connectée sur la sortie 
“communication” du Macintosh, 
elle ne nécessite évidemment 
aucune modification de 
l'ordinateur. 

Les composants sont relativement 
bon marché et très communs, la 
simplicité du circuit plaçant le 
montage à la portée des non- 
initiés. 

C'est le relais CLARE qui assure 
les impulsions nécessaires au 
système téléphonique, le 2ème 
relais libèrant la ligne quand 
l'ordinateur est hors-tension. 


Les schémas devraient permettre 
de mener à bien cette petite 
réalisation ; le condensateur (anti- 
parasite) de 100 LF est polarisé 
donc attention au sens du 
montage. La sortie destinée à 
l'ordinateur doit obligatoirement 
être munie d'une prise 9 
broches. L'interrupteur est une 
sécurité pour couper le système 
tandis que le Mac utilise un autre 
programme (incompatible avec le 
montage.) 











Une résistance 1IKQ 

Un condensateur 100 LF/. 

- 100V 

Une diode LED 5mm 

Un interrupteur 

Un connecteur 9 broches 

Un relais miniature 12V 
Matsushita HB2 

.. Un relais SV CLARE 

15005AB 








D. VENOT 


Relais 5Y Clare 





Le téléphone simulé par le Mac 
est en série avec le réel ce qui 
permet de protéger la ligne. Il est 
impossible pour le Macintosh de 
composer un numéro si le 
téléphone ne le permet pas. 


Le programme 


Il se chargera des préfixes dans le 
cas des communications : Paris 
province, province Paris (ajout 
du 16 ou 16 1) ainsi que dans le 
cas d'appels à l'étranger. 


Le fichier répertoire n'est limité 
que par la place sur le disque. Les 
boutons “précédente” et 
"suivante" permettent de changer 
de page dans le cas où une ne 
serait pas suffisante. Pour faire 
apparaître une page en fonction 
d'une lettre, cliquez sur l'alphabet 
la lettre désirée. Les fiches sont 
classées dans l'ordre alpha- 
bétique, l'article de classement est 
la concaténation “nom/prénom”. 


Les menus 
Fichier 

Basic 

retour au basic. 


Finder 
retour au finder. 


Carnet 


Nouvelle fiche 

Entrée d'une nouvelle fiche dans 
le fichier, il est conseillé de 
donner le code postal. 

Fermer le carnet 

Le carnet est fermé et il est 
impossible aux regards indiscrets 
d'observer les fiches. Pour 
l'ouvrir, cliquer la souris. 


Edition 

Nouveau répertoire 

Après avoir demandé votre 
autorisation le présent fichier est 


détruit au profit d'un nouveau 
(prudence). 


Click 


Lorsqu'une page est affichée, le 
fait de pointer une fiche et de 
cliquer permet de la détruire, de la 
modifier, de composer le 
numéro... La fonction du click 
est selectionnée dans le menu 
Click : 

Afficher 

un click fait afficher la totalité 
d'une fiche ; 

Editer 

un click édite la fiche pointée en 
vue de modifications ; 

Détruire 

la fiche pointée est détruite aprés 
une autorisation ; 
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Composer le numéro 

le numéro de la fiche pointée est 
composé immédiatement avec les 
conventions imposées par les 
rubriques “Région et Pays”. 


Région 

Automatique 

l'ordinateur utilise le code postal 
de la fiche pour accorder les 
préfixes et compose le numéro 
(France) ; 

Paris -> Province 

l'appel est en direction de la 
province ; 

Province->Paris L'appel est 
imposé vers Paris (16 1 ….). 


Pays 

Ce menu permet de sélectionner 
un pays pour un appel à 
l'étranger, les préfixes d'appels 
seront placés automatiquement. 
S'il ne s'agit pas de la France, la 
rubrique Région n'a pas d'action. 
Il est possible de compléter ou de 
modifier la liste. 


Côté ordinateur 











8 
Câble du téléphone 


il 








© Carte MACCOMPOS 
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O C9k$6 HYCCOHLO2 





DIM l1i$(25),cu%(100) :np=5 

DATA Royaume Uni,19# 44,Alle 
magne RFA,19# 49,Etats Uni 
s,19# 1,Belgique,19# 32,Su 
isse,19# 41 

OPEN "coml:110" FOR OUTPUT 
AS 1:CLOSE 

start: 

OPEN "rep2" FOR INPUT AS 1 
LEN=113:INPUT#1,nb$:FOR 

i=0 TO 25:LINE INPUT#1, 
li$ (1) : NEXT:CLOSE#1 : OPEN 
"repl" AS 1:FIELD#1,15 À 
S no$,15 AS pr$,18 AS tel 
$,40 AS adr$,10 AS cp$,15 
AS vil$:nb$=VAL(nb$):cur% 
=0:ra=16:pa%=1l 

WINDOW 1, "agenda",(8,28)-(5 
05,335),2:WINDOW OUTPUT 

1:TEXTFONT O:TEXTSIZE 12 
: TEXTMODE 1:GOSUB curseu 
r:FOR i=1 TO 5:MENU i,0,0 
; "":NEXT:MENU 1,0,1,"Fich 
ier'":MENU 1,1,1,"Basic":M 
ENU 1,2,1,"Finder"':MENU 2 
,0,1,"Carnet'":MENU 2,1,1," 
Nouvelle fiche" 

MENU 2,2,1,"Fermer le carnet 
":MENU 3,0,1,"Edition":ME 
NU 3,1,1,'"Nouveau répertoi 
re":MENU 4,0,1, "Click":ME 
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NU 4,1,1,"Afficher":MENU 
4,2,1,"Editer":MENU 4,3,1, 
"Détruire":MENU 4,4,2,"Com 
poser le numéro'"':MENU 5,0, 
1, "Région" 

MENU 5,1,2, "Automatique":ME 
NU 5,2,1,"Paris -> Province 
e":MENU 5,3,1,'"Province -> 

Paris":MENU 6,0,1,"Pays": 
MENU 6,1,2, "France":RESTO 
RE:FOR i=1 TO np:READ a$ 
, PS :MENU 6,it1,1,aS$:NEXT: 
re$="":pa$="":pa=l:re=1:ME 
NU ON:etso=3:ON MENU GOS 
UB testmenu:GOSUB dessin 

IF start=1 THEN RETURN 

debut : 

MENU:p$=INKEYS:p=ASC(p$+" 
")-48:IF p$=CHR$S(34) THEN 

p=3 

IF p$<>"" THEN a=INSTR("à& 
ée'(S$è!ç",p$):IF a THEN p 
=a-1 

IF p>=0 AND p<10 THEN GOSU 
B digit 

m=MOUSE (0) :IF m=1 THEN sou 
ris 

dil=DIALOG(0):d2=DIALOG(1) 

IF dl=1 THEN ON d2 GOTO pr 
e, sui 

IF d1l=5 THEN GOSUB dessin 

GOTO debut 

pre: 

Pa$=pa$-6:GOSUB carnet : GOTO 

debut 

sui: 

Ppa$=pa$+6:GOSUB carnet : GOTO 

debut 

souris: 

a=MOUSE (1) :b=-MOUSE(2):IF b 
>48 AND b<260 AND a<460 T 
HEN aff 

IF b>30 THEN BEEP:GOTO deb 
ut 

l=cur$:cur$=(a-10)/ra:IF l=c 
ur$ OR cur$>=26 THEN cur% 
=] :BEEP : GOTO debut 

PUT (l*ra+4,0),cu%(0),XOR:F 
OR i=(l*ra)+4 TO cur$&*ra+4 

STEP 3*SGN(cur$%-1l}) :PUT ( 
i,0),cu#$(0),XOR:PUT (i,0) 
,cu$(0),XOR:NEXT:PUT (cur 
$*ra+4,0),cu%(0),XOR:pa%=1 
:GOSUB carnet:GOTO debut 

aff: 

n=(b-64)/32+pa%:IF n>LEN(li 
$(cur$%)) THEN BEEP:GOTO 
debut 

IF etso=0 THEN souris2 

IF etso=2 THEN detruire 

IF etso=3 THEN composer 

nn=ASC (MID$(li$(cur$),n,1)) 
:GOSUB entree:LINE(2,48)- 
(469,269),30,bf:LOCATE 5, 
S:PRINT no$;" ";pr$:LOCAT 
E 6,2:PRINT adr$:LOCATE 


7,2:PRINT vil$;" ";cp$:LO 
CATE 9,25:PRINT'"tel : "jt 
el$:BUTTON CLOSE 1:BUTTO 
N CLOSE 2:BUTTON 1,1,"ok 

", (0,282)-(100,305) 

WBILE DIALOG(0)<>1:WEND:B 
UTTON CLOSE 1:GOSUB carn 
et:GOTO debut 

souris2: 

fi%=ASC(MID$S(li$(cur$),n,1) 
):nn=fi%:GOSUB entree:mod 
if=1:GOSUB nouvin:GOTO de 
but 

détruire: 

nn=ASC (MID$(l1i$(cur$),n,1)) 
:GOSUB entree:t$="La fich 
e "+a$+" doit être détruit 
e ?":GOSUB accord:IlF rs=" 
n'" THEN detruirel 

GOSUB del 

deétruirel: 

GOSUB carnet:GOTO debut 

dessin: 

LINE (3,3)-(443,23),33,bf:LI 
NE (0,0)-(440,20),30,bf:LI 
NE (0,20)-(440,20),33:LINE 

(440,0)-(440,20),33:FOR i= 
1 TO 26:LOCATE 1,i*2:PRI 
NT CHR$(96+i) :NEXT:PUT(c 
ur$*ra+4,0),cu$(0),XOR:FO 
R i=1 TO 10 STEP 2:LINE( 
10-i,40-i)-(480-i,280-1i), 3 
0,bf 

LINE (10-i,40-i)-(480-1i,280-i 
),33,b:NEXT:LOCATE 3,3:P 
RINT'"Nom :":LOCATE 3,15: 
PRINT" Téléphone:":LOCAT 
E 3,27:PRINT'"Adresse :" 

carnet : 

LINE (2,48)-(469,269),30,bf: 
LINE (300,282)-(500,305),30 
;bf:LOCATE 19,40:PRINT L 
EN(li$(cur$));"/";nb3;"© D 
.Venot"; : LINE (115,35)-(115 
,265),33:LINE (205, 35) -(205 
,265),33:LINE (5, 48)-(465, 4 
7),33,b£f:FOR i=0 TO 13:LI 
NE (5,48+i*16)-(465,48+i*16 
),33:NEXT 

n=4:ma$=pa$:BUTTON 1,1, "pré 
cédente", (0,282)-(100,305) 
:IF pa$ñ-1 THEN BUTTON 1, 
(e) 

BUTTON 2,0,"suivante", (110, 
282)-(210,305) 

carnetl:IF ma$>LEN(li$(curg, 
)) THEN ma%=0:BUTTON 2,0: 
RETURN 

IF n>=17 THEN BUTTON 2,1:R 
ETURN 

nn=ASC (MID$(li$(cur$) ,ma%, 1 
)) : GOSUB entree 

LOCATE n,1l:PRINT a$:LOCAT 
E n,15:PRINT" "+c$:LOCAT 
E n,27:PRINT d$:LOCATE n 
+1,3:PRINT bS$:LOCATE n+1 


,27:PRINT e$+" "+fS:n=nt 
2:ma$=ma$%+1:GOTO carnet1 

Fermer: 

LINE (2,48)-(469,269),30,bf: 
FOR i=20 TO 460 STEP 20: 
LINE (i,50)-(i,260),33:NEX 
T:FOR i=60 TO 260 STEP 20 
:LINE (10,i)-(460,1i):NEXT: 
LINE (30,96)-(200,144),30,b 
fF:LOCATE 8,10:PRINT'"Répe 
rtoire":WHILE MOUSE (0) <>1 
:WEND : GOTO carnet 

curseur: 

LINE (0,0)-(20,18),33,b:LINE 
(1,1)-(19,17),33,b:LINE(10 
#0)-(10,3),33,b:LINE(10,18 
2—-(10,15),33,b:GET (0,0) -1(2 
0,18),cu%(0) : RETURN 

testmenu: 

ml=MENU (0) :m2=MENU(1):IF ml 
-1 THEN ON m2 GOTO fin,fi 
nder 

IF ml=2 THEN ON m2 GOTO no 
uv, fermer 

IF ml=3 THEN rep | _) 

IF ml=4 THEN clic Ç 





IF ml=5 THEN region ER 
IF ml=6 THEN pays D 
RETURN 

region: 


MENU 5,re, 1:MENU 5,m2,2:re= 
m2 

IF m2=1 THEN re$="" 

IF m2=2 THEN re$="16 " 

IF m2=3 THEN re$="16 1 " 

RETURN 

pays: 

MENU 6,pa,l:pa=m2:MENU 6,pa 
,2:IF pa=1l THEN pa$="":RE 
TURN 

RESTORE:FOR i=1 TO pa-1:RE 
AD pays$,pa$:NEXT:RETURN 

rep: 

t$="Création d'un répertoire 
et destruction du résidan 
t.":GOSUB accord:IF r$="n 
" THEN carnet 

CLOSE #1:OPEN "rep2" FOR OU 
TPUT AS Ll:PRINT#1,"O":nb 
$=0:FOR i=0 TO 25:11$(1)= 
"":PRINT#1,1i$(i):NEXT:C 
LOSE#1:KILL "repl'":start= 
1:GOTO start 

fin: 

CLOSE#1:GOSUB sauve:MENU R 
ESET : END 

sauve: 

OPEN "rep2" FOR OUTPUT AS 
#1:nb$=STR$ (nb%) :PRINT#I1, 
nb$:FOR i=0 TO 25:PRINT#1 
;1i$(i) :NEXT:CLOSE#1:RET 
URN 

nouv: 

modif=0:a$="":p$="";:c$="":dS 
="Teesm"teféfænn 

nouvin: 
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LINE (2,48)-(469,269),30,bF: 
LOCATE 7,2:PRINT'"Prénom 
:":EDIT FIELD 2,bS$, (80,96 
)-(280,112):LOCATE 9,2:PR 
INT'"Téléphone :":EDIT FIE 
LD 3,c$,(110,128)-(310,144 
):LOCATE 11,2:PRINT'"Adre 
sse :":EDIT FIELD 4,d$,(8 
0,160)-(440,176):LOCATE 1 
3,2:PRINT'"Ville 

EDIT FIELD 5,e$, (70,192)-(2 
70,208) : LOCATE 15,2:PRIN 
T'Code postal :":EDIT FIE 
LD 6,f$, (120,224)-(320,240 
) :LOCATE 5,2:PRINT'"Nom : 
":EDIT FIELD 1,a$, (60,64) 
— (260, 80) :BUTTON 1,1,"Ok" 
7 (0, 282)-(50, 305) : BUTTON 
2,1,"Fin", (60,282)-(130, 30 
5) 

nouvi: 

IF DIALOG(0)<>1 THEN nouvi 

bou=DIALOG (1) 

IF bou=1 THEN ok 

IF bou=2 THEN GOSUB nouvfi 
n:GOTO carnet 

GOTO nouvl 

ok: 

a$=EDITS(1):b$=EDITS (2) :c$= 
EDITS (3) :d$=EDITS(4):e$= 
EDITS (5) :f$-EDITS (6) :GOS 
UB nouvfin:f1#%=fi$:nb%=nb8 
+1:fi%=nb8 

nouvdel : 

a$=a$+" ":a$=UCASES (LEFTS 
(a$,1))+RIGETS (a$,LEN(a$) 
—l):n=ASC(a$)-65:IF fi$-=1 
3 THEN fi%=0 

IF li$(n)="" THEN li$(n)-CH 
R$(fi%) :nn=fi%:GOTO sorti 
& 

FOR i=1 TO LEN(li$(n)):nn=A 
SC(MID$(li$(n),i,1)):IF n 
n=0 THEN nn=13 

GET#1,nn:IlF UCASES$S (no$+pr$ 
) >UCASES (a$+b$) . THEN plac 
2 

NEXT 

li$(n)=l1i$(n) +CHR$S(fi$) :nn=f 
i1$:GOTO sortie 

place: 

nn=fi$:IF i=1 THEN li$(n)=C 
ER$(fi%)+1i${(n) :GOTO sort 
ie 

li$(n) =LEFT$(liS$(n),i-1)+CH 
R$(fi%)+MID$S(li$(n),i) 

sortie: 

IF nn=0 THEN nn=13 

LSET no$=a$:LSET pr$=b$S:Ls 
ET tel$=c$:LSET adr$-d$:L 
SET vil$=e$:LSET cp$=f$S:P 
UT#1,nn:IF modif=1 THEN n 
n=f1#:GOSUB del:GOTO carn 
et 

IF modif=-2 THEN RETURN 

IF modif=0 THEN nouv 





Pom's n° 24 


GOTO carnet 

nouvfin: 

FOR i=1 TO 6:EDIT FIELD CL 
OSE i:NEXT:BUTTON CLOSE 

1:BUTTON CLOSE 2:RETUR 
N 

entree: 

IF nn=0 THEN nn=13 

GET#1,nn:a$=no$:b$=pr$:c$=te 
1$:d$=adr$:e$=vil$:f$=cp$: 
RETURN 

ciic: 

MENU 4,1,1:MENU 4,2,1:MENU 
4,3,1:MENU 4,4,1:IF m2=2 
THEN etso=0:MENU 4,2,2 

IF m2=1 THEN etso=1:MENU 4, 
2,2 

IF m2=3 THEN etso=2:MENU 4, 
3,2 

IF m2=4 THEN etso=3:MENU 4, 
4,2 

RETURN 

finder: 

CLOSE #1:GOSUB sauve:SYSTEM 

accord: 

LINE (2,48)-(469,269),30,bf: 
LOCATE 5,2:PRINT tS$S:BUTT 
ON 1,1,"Oui",(100,100)-(15 
0,120) : BUTTON 2,1,"Non", ( 
170,100)-(220,120) :WAHILE 
DIALOG (0) <>1 : WEND : BUTTON 

CLOSE 1:BUTTON CLOSE 2: 
IF DIALOG(1)=-1 THEN r$=" 
o'":RETURN 

r$="n":RETURN 

DEL: 

IF nn=0 THEN nn=13 

fi$=nn:n=INSTR(li$(curé),CH 
R$(nn)):p=cur#:GOSUB coup 
er:IF nn=nb% THEN nb$=nb# 
—1 : RETURN 

FOR p=0 TO 25:n=INSTR(li$(p 
),CHR$ (nb%)):IF n<>0 THEN 

GOSUB couper:GOTO del2 

NEXT p:BEEP :BEEP : RETURN 

de12: 

nn=nb$:GOSUB entree:nb$=nb# 
-l:modif=2:GOTO nouvdel 

couper: 

IF LEN(li$(p))=1 THEN li$(p 
)="":RETURN 

IF n=1 THEN li$(p)=MID$S (lis 
(p) , 2) : RETURN 

IF n=LEN(li$(p)) THEN li$(c 
ur$)=LEFT$(li$(p),LEN(li$ 

(p) ) -1) : RETURN 

li$(p) =LEFTS$ (1i$ (p),n-1)+MI 
D$(1i$(p),n+1) : RETURN 

composer : 

LINE (2,48)-(469,269),30,bf:n 
n=ASC(MID$(li$(cur%),n,1l) 
) :GOSUB entree:LOCATE 14 
, 4:PRINT A$;" ";B$:LOCAT 
E 15,4:PRINT d$:p$=c$:a$= 
" M+LEFTS (F$, 2) :B$=RES : LO 
CATE 16,4:PRINT e$;" 





"}f$:IF pa<>l THEN b$="" 

IF pa=1 AND re=1l THEN IF I 
NSTR(" 91 92 93 95 77 78 9 
4 75 ",a$)<>0 THEN E$="" 

ELSE E$="16 " 

LOCATE 5,20:IF pa=1 THEN P 
RINT'"'En france" ELSE PRI 
NT pays$:GOTO compl 

LOCATE 5,2:IF re=1 THEN PR 
INT'Automatique." 

LOCATE 6,7:IF E$="16 " THE 
N PRINT'"Vers la province. 

IF b$="16 1 " THEN PRINT'"V 
ers la région Parisienne." 

IF b$="" THEN PRINT'"zone i 
ntérieure, région Parisien 
ne." 

compl:p$=pa$+" "+b$S+" "+p$ 
:LOCATE 10,3:PRINT'"Compo 
ser le numéro :";p$:LOCAT 
E 12,12:PRINT'COMP OS 

I T I O N'":GOSUB numero: 
IF p$<>"" THEN LOCATE 13 
,10:PRINT'E N LIGN 
E . . . " ELSE LOCATE 13, 
10:PRINT"INTERRUP 
T I O N":GOTO comp2 

FOR i=1 TO 5:BEEP:NEXT:FOR 

i= 1 TO 5000:NEXT 

comp2 : 

GOSUB carnet:GOTO debut 

numero: 

FOR X=1 TO LEN(p$) :p=ASC(M 
ID$(p$,x,1))-48:IF p<0 OR 

p>9 THEN impnu 

GOSUB digit 

IF MOUSE (0)=2 OR INKEY$=" 
" THEN p$="":RETURN 

numl:NEXT:RETURN 

impnu: 

IF p=-13 THEN FOR i=1 TO 1 
0000!:NEXT 

GOTO numl 

DIGIT: 

IF p=0 THEN p=10 

a$=STRINGS (p, 248) : OPEN "CO 
M1:110,n,8 ,1 " FOR OUTPU 
T AS 2:PRINT#2,A$;:CLOSE 
#2:FOR i=1 TO 1000:NEXT:R 
ETURN 


Programme € [2 | 
‘Initialise’ LS 


REM Programme créateur de fi 
chiers "répertoires", doit 
être utilisé avant la pre 
mière mise en service du p 
rogramme 

OPEN "rep2" FOR OUTPUT AS 
l:PRINT#1,"O":FOR i=0 TO 
25:PRINT#1, "":NEXT:CLOSE 
:END 
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5 


on 


Le Macintosh offre à ses 
utilisateurs la remarquable 
possibilité de faire passer à peu 
près tout entre applications et/ou 
accessoires de bureau, et en 
particulier du texte. Pour cela, les 
programmeurs qui ‘développent’ 
en Basic ou en Pascal (ou avec un 
autre langage évolué) disposent 
de routines qu'il suffit d'appeler 
aux moments voulus, moments 
qui, nous le verrons plus loin, 
devront être choisis avec soin si 
l'on veut respecter la philosophie 
Macintosh et, surtout, le confort 
de l'utilisateur. Nous ne nous 
intéresserons ici qu'aux données 
de type “TEXT”’ bien qu'il soit 
bien entendu possible de passer 
des informations graphiques 
“PICT” (picture) par ce biais, 
mais, de toute façon et pour ce 
genre de traitement, la principale 
différence entre les deux types est 
que c'est exactement la même 
chose. 


TEScrap et 
DeskScrap 


La plupart des applications et 
accessoires de bureau utilisent un 
“presse-papiers” géré exclusi- 
vement et automatiquement par le 
système d'édition de texte 
(TextEdit). Celui-ci, baptisé 
TEScrap se charge de la 
manipulation des textes coupés, 
copiés ou collés à l'aide des 
routines TECut, TECopy et 
_TEPaste. Donc, à l'intérieur 
d'une application ou d'un 
accessoire, le programmeur doit 
seulement appeler les trois 
routines en question, en fonction 
de l'article sélectionné par 
l'utilisateur dans le menu 
“Édition” (ou de leur ‘équivalent 
clavier’ : Commande-X, C ou V) 
sans se soucier de la manipulation 
du texte traité. Mais ceci ne vaut 
qu'à l'intérieur d'une même 
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application ou d'un même 
accessoire. Dès lors qu'il s'agit 
de passer du texte hors du 
programme en Cours, il faut avoir 
recours à un second 
presse-papiers : celui du bureau, 
baptisé DeskScrap. Ce dernier 
est donc employé comme tampon 
(en mémoire, ou sur disque si sa 
taille ne permet pas un maintien 
en mémoire) lorsque l'utilisateur 
a, par exemple, copié l'heure et la 
date affichées par l'accessoire 
“Horloge” pour le coller dans un 
document MacDraw, ou encore 
couper un paragraphe de texte 
depuis MacWrite pour le coller 
dans le “Calepin” ou dans un 
document MacPaint. 


Des routines…. 


dites de haut niveau pour le 
Basic, Pascal et les autres 
langages évolués, mais pas pour 
l'assembleur, d'où la présence de 
cet article. 


En Basic Microsoft, DeskScrap 
est considéré comme étant un 
fichier séquentiel, au même titre 
que le clavier, les connecteurs 
‘série’ et l'écran. Pour ouvrir ce 
fichier en entrée : 


OPEN ‘“CLIP:TEXT" FOR 
OUTPEUT AS ll 

en sortie : 

OPEN "“CLIP:TEXT" FOR 
INPUT AS 1 


Les Pascaliens, de leur côté, 
disposent des routines 
TEFromScrap - pour faire 
passer du texte depuis le 
presse-papiers DeskScrap vers le 
presse-papiers TEScrap - et 


TEToScrap - pour faire 
l'inverse. 
Rien de tel donc pour 


l'assembleur et, si ‘Inside 
Macintosh’ préconise l'utilisation 
des variables globales 


TEScrpHandle et TEScrpLength 
ainsi que des fonctions GetScrap 
et PutScrap, il n'en reste pas 
moins que l'écriture de routines 
équivalentes à TEFromScrap et 
TEToScrap, bien que 
relativement simple, n'est pas 
forcément évidente. C'est 
pourquoi nous proposons deux 
routines en assembleurs qui 
pourront être très facilement 
implantées dans vos programmes 
et accessoires de bureau. 


Routine 
TEFromScrap 


Cette routine se charge du 
passage du texte depuis 
DeskScrap vers TEScrap. Elle 
sera appelée depuis votre 
application ou accessoire par un 


BSR TEFromScrap 


Les registres dont le contenu est 
susceptibles d'être modifié sont 
préservés et restitués en fin 
d'exécution. Au retour, le bit Z 
du registre d'état est positionné à 
1 s'il n'y avait pas de texte à 
transféré, ou si le texte n'avait pu 
être transférer du fait d'une erreur 
au niveau du système 
d'exploitation (OSErr). En cas 
d'erreur de ce type, votre 
programme peut trouver le code 
d'erreur en -26(SP) à condition, 
bien sûr, de le faire avant toute 
nouvelle opération pouvant 
engendrer une modification du 
contenu du registre A7 (pointeur 
de pile). 


Voici un exemple de segment de 
code extrait d'un programme 
faisant appel à la routine 
TEFromScrap : 


BSR 
BEQ.S 
Suite 


TEFromScrap 
Erreur 


-26(SP) 
Suite 


Erreur TST 
BEQ.S 
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MOVE -26(SP),AdrEr 
Routine 
TEToScrap 


TEToScrap, vous l'aurez deviné, 
effectue l'inverse de la tâche 
assurée par TEFromScrap, soit le 
passage du presse-papiers 
TEScrap vers le presse-papiers 
DeskScrap. 

L'appel de la routine se fait par : 


BSR TEToScrap 


Les registres sont préservés et 
leur contenu restitué. Au retour, 
contrairement à la routine 
TEFromSrap, le bit Z du registre 
d'état est positionné à 1 s'il n'y a 
pas eu de problème. Sinon, le bit 
Z est à 0 et votre application et/ou 
accessoire peut trouver, tout 
comme pour la routine 
précédente, un éventuel code 
d'erreur OSErr dans -26(SP) 


Exemple de segment de code 
pour la routine TÉToScrap : 


BSR TEFromScrap 
BNE.S Erreur 
Suite 


Erreur MOVE -26(SP),AdrEr 


Quand utiliser les 
routines ? 


La programmation du Macintosh 
impose aux ‘développeurs’ un 
certain nombre de règles précises 
décrites dans ‘Inside Macintosh’ 
au chapitre ‘Macintosh User 
Interface Guidelines’. Ces 
conventions, lorsqu'elles sont 
respectées, autorisent la mise au 
point de programmes que 
l'utilisateur final pourra utiliser de 
façon quasi-instinctive. Par 
exemple, en tant qu'utilisateurs, 
nous trouvons qu'il n'y a rien de 
plus désagréable que d'utiliser un 
programme qui n'emploie pas les 
‘équivalents claviers’ Com- 
mande-X, C et V pour ‘Couper’, 
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‘Copier’ et ‘Coller’. Nous avons 
donc tout intérêt à respecter les 
conventions Macintosh, même si 
elles nous paraissent lourdes, 
voire même contraignantes. 


Démarrage de 
l'application 


Il serait tentant de transférer 
immédiatement le contenu de 
DeskScrap dans TEScrap mais, si 
nous voulons bien faire les 
choses, c'est un peu plus 
compliqué. Il convient tout 
d'abord de s'assurer de la 
présence de texte dans 
DeskScrap. Pour cela, on peut 
utiliser la routine GetScrap en 
passant 0 dans la pile à la place 
du Handle : 


SUBQ #4,SP 

CLR.L -(SE) 

MOVE .L #'TEXT',-(SP) 
PEA scratch8 
_GetScrap 

MOVE.L (SP)+,D0 


En passant une valeur nulle (NIL 
pour les Pascaliens) dans la pile 
(CLR -(SP)) à la place d'un 
Handle sur le presse-papier 
TEScrap, la routine GetScrap 
retourne : 


1 -102 si il n'y a pas de donnée 
de type 'TEXT' (notons bien 
qu'il ne s'agit pas là d'un 
code d'erreur : DeskScrap 
peut très bien contenir à ce 
moment des données de type 
HG: 

2 une autre valeur négative 
correspondant à une erreur de 
type OSErr en cas de 
problème au niveau du 
système d'exploitation ; 


3 la longueur du presse-papiers 
si la valeur est positive. 


Dans les deux premiers cas, il 
convient de rendre invalide 
l'article ‘Coller’ du menu 
‘Édition’ pour que l'utilisateur ne 
puisse pas croire qu'il peut coller 
quelque chose alors qu'il n'y a 
rien dans TEScrap. On pourrait 
donc obtenir à ce moment un 
menu ‘Édition’ comme celui-ci : 






Edition 
#nuier 







Effacer 





En fait, si l'on veut vraiment bien 
faire les choses, les menus 
‘Couper’ et ‘Copier’ ne devraient 
être valides que s'il y a quelque 
chose prêt à être copier ou couper 
ou, en d'autres termes : si 
quelque chose est sélectionné. 
Ceci est rendu possible par la 
présence des champs selStart 
(début de la zone sélectionnée) et 


selEnd (fin de la zone 
sélectionnée) situés dans 
l'enregistrement du texte 
(TEReo). 


MOVEA.L teHandle (A5) ,A4 
MOVEA.L (A4),A4 


CMP selStart (A4), 
selEnd(A4) 
BNE TexteSelectionne 


En ce qui concerne le second cas, 
il est recommandé d'afficher une 
fenêtre de type ‘alerte’ afin 
d'informer l'utilisateur en lui 
indiquant, en fonction du code 
OSErr retourné, quel est le 
problème rencontré. 


Pour le troisième cas, il convient 
de valider l'article ‘Coller’ du 
menu ‘Édition’, ce qui pourrait 
donner un menu comme celui-ci 
(il n'est pas indispensable de faire 
des menus aussi délirants !) : 


45 











autant 


Il n'est 
indispensable d'appeler la routine 
TEFromScrap immédiatement. 
En effet, si l'utilisateur coupe ou 
copie du texte dans l'application 


pas pour 


avant le premier ‘Coller’, le 
transfert d'informations aura été 





inutile. De plus, il convient de 
garder intact le contenu de 
DeskScrap pour le cas ou il n'y 
aurait aucun ‘Couper’ ou ‘Coller’ 
entre le démarrage de 
l'application et l'ouverture d'un 
accessoire de bureau, ou encore 
le démarrage de l'application et sa 
fermeture. 

En résumé : après le démarrage 
d'une application, il faut appeler 
TEFromScrap seulement lors du 
premier ‘Coller’, et seulement si 
il n'y a pas eu de ‘Couper’ ou 
‘Coller’ auparavant (chinois). 


Edition 
Annuler 







Effacer 


Ouverture ou sélection 
d'un accessoire 


Deux cas sont ici envisageables : 


1 Il ny a pas eu de ‘Couper’ 
ou ‘Copier’ depuis le 
démarrage de l'application ou 
le dernier retour depuis un 
accessoire de bureau ; 

Il y a eu au moins un 
‘Couper’ ou ‘Copier’ depuis 
le démarrage de l'application 
ou le dernier retour depuis un 
accessoire de bureau. 


Il faut avant tout faire une 
opération qui n'a pas de rapport 
direct avec le contenu des 
presse-papiers : la validation des 2 
menu ‘Annuler’, ‘Couper’, 
‘Copier’, ‘Coller’ et ‘Effacer 
afin d'autoriser leur utilisation 
éventuelle par l'accessoire : 





Routine TEFromScrap (‘beskScrap' vers ‘TEdit') 


; Trap et adresses utilisées 
SA9FD 


.Trap __GetScrap 


Dans un fichier "ressource" SÉaUE 





CHURIIMLE dE ge, nous 
scratch8 BOU F9FA trouverions ici les ressources de Sn  - 
TRCIRIONEE EAU FAB0 type WIND, MENU, DITL,STR,  Clippoard File 
teScrpHandle EQU SAB4 is DLOG, etc. 
TEFromScrap 
MOVEM.L A0-A1/D0-D2,-(SP) ; Sauvegarde les registres au sommet de la pile. 
SUBQ #4, SP ; Réserve 4 octets au sommet de la pile pour la 
; valeur retournée par la routine GetScrap. 
MOVE. L teScrpHandle,-(SP) ; Empile le ‘Handle’ du presse-papier des 
; routines d'édition de texte (TEdit). 
MOVE .L #'TEXT',-(SP) ; Empile le type de donnée requise (texte). 
PEA scratch8 ; Empile l'adresse du tampon de 8 octets. 
_GetScrap ; _GetScrap retourne une valeur : 
; positive = longueur du presse-papier ; 
; —102 = pas de données du type demandé ; 
MOVE. L (SP) +,D0 ; autre négative = OSErr (erreur syst. exploitation). 
BPL.S FinFrom ; Si OK, on conserve la valeur placée dans D0. 
MOVEQ #0,D0 ; Sinon on indique une longueur nulle. 
FinFrom ; La variable globale TeScrpLength, qui indique 
MOVE D0, TeScrpLength ; la longueur du presse-papier des routines 
; d'édition, est mise à jour. 
MOVEM.L (SP)+,A0-A1/D0-D2 ; Valeurs initiales dans les registres. 
RTS ; Retour au programme appelant avec le bit Z à 1 


; Si il n'y a rien dans le presse-papier. 
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Quel que soit le cas concerné, il 
faut stocker à une adresse 
quelconque (mais connue !), la 
valeur courante de scrapCount. 
Ceci nous permettra de savoir 
ultérieurement si le contenu de 
DeskScrap a été modifié par 
l'accessoire. Pour obtenir la 
valeur de ce compteur, on peut 
soit lire le contenu de la variable 
globale scrapCount ($968) : 


MOVE scrapCount,Compt (A5) 


soit lire la zone scrapCount de 
l'enregistrement ScrapStuff dont 
l'adresse de base est retournée 


par la routine _InfoScrap : 

SUBQ #4,SP 

_InfoScrap 

MOVEA.L (SP)+,A0 

MOVE scrapCount (A0) ,Compt (A5) 
: SscrapCount=8 


Pour le premier cas (1), on se 
contentera de ne rien faire (mis à 
part le stockage du contenu du 
compteur). 


Pour le cas (2), il faudra faire 
appel à la routine TEToScrap afin 
de passer le texte copier ou 


Passage d'un 
accessoire à 
l'application 


El 
ER 


7 


Le problème (si tant est que 
problème il y a) est le même que 
lors du démarrage de 
l'application. Nous disposons 
toutefois d'un moyen simple pour 
savoir si le contenu de DeskScrap 
a été modifié depuis que l'on a 
quitté l'application : nous avons, 
lors de l'ouverture ou de la 





couper à l'accessoire. 


sélection de l'accessoire, stocké 





Routine TETOSCrap (TEaïit vers ‘DeskScrap') 


; Trap et adresses utilisées 





destiné 
nous 








Clipboard File 


Sauvegarde les registres au sommet de la pile 
Réserve 4 octets au sommet de la pile pour la 


; Réserve 4 octets au sommet de la pile pour la 


; Retourne la longueur du presse-papier des 


. Trap _GetHandleSize $A025 
.Trap _HLock $A029 Dans un fichier "ressource" 
.Trap HUnLock $A02A û une véritable application 
.Trap ” PutSc rap SA9FE trouverions ici les ressources de 
.Trap | ZeroScrap $A9FC type ‘WIND, MENU, DITL,STR, À 
TeScrpLength EQU $ABO DLOG, etc. 
teScrpHandle EQU SAB4 
TEToOScrap 
MOVEM.L A0-A1/D0-D2,-(SP) ; 
SUBQ #4, SP î 
;: valeur retournée par la routine ZeroScrap. 
_ZeroScrap ; Initialise le presse-papier du bureau et 
; incrémente ScrapCount de 1 (voir texte). 
ADDQ #4, SP ; On n'utilise pas la valeur retournée. 
MOVE. L teScrpHandle, A0 ; Place le ‘Handle’ du presse-papier des 
; routines d'édition de texte dans A0. 
SUBQ #4, SP î 
; valeur retournée par la routine PutScrap. 
__GetHandleSize ; 


MOVE.L DO0,-(SP) 
__HLock 


MOVE.L #'TEXT',-(SP) 


routine d'édition de texte dans DO. 
Empile la longueur. 

Empêche le déplacement du presse-papier. 
Empile le type de donnée à passer. 

Empile le pointeur sur le texte à passer. 


Place le ‘Handle’ du presse-papier des 
routines d'édition de texte dans A0, et 
_HUnLock autorise ies mouvements de mémoire. 
Résultat de PutScrap dans DO pour 


Valeurs initiales dans les registres. 


MOVE . L (A0),-(SP) ; 
__PutScrap ; Transfert du texte. 
MOVE. L teScrpHandle, A0 ; 
__HUnLock ; 
MOVE .L (SP)+,D0 ; 
; positionner le bit Z : à 1 si OK. 
MOVEM.L (SP)+,A0-A1/D0-D2  ; 
RTS î 


Retour au programme appelant avec le bit Z à 
si l'opération s'est bien déroulée. 


; En cas d'erreur au niveau du système d'exploitation (OSErr) et pour les deux 
; routines, le code de l'erreur se trouve, lorsque l'on est revenu au programme 
; appelant, 


en -26(SP) sur deux octets. 
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la valeur courante de scrapCount. 
Or, sans trop entrer dans les 
détails, on peut dire que ce 
compteur est incrémenté de 1 à 
chaque fois que l'on met quelque 
chose dans DeskScrap. Donc, si 
le contenu actuel de scrapCount 
est différent de son contenu avant 
appel de l'accessoire, le contenu 
de DeskScrap a été modifié, ce 
qui doit bien sûr être pris en 
compte par notre application. 





SUBQ #4,SP 
_InfoScrap 
MOVEA.L (SP)+,A0 
CMP scrapCount (A0) ,Compt (AS) 
BNE Modi f 
BRA PasModif | _) 

re gr 
Fermeture de LES 
l'application de) 


logiquement le même que dans le 
cas “Ouverture ou sélection d'un 
accessoire”, bien qu'il ne soit pas 
nécessaire de se préoccuper de 
l'état du menu ‘Édition’ ni du 
stockage de la valeur courante de 
scrapCount qui, de toute manière, 
ne sera pas réutilisée. 


En cas d'écriture 
d'un accessoire 

de bureau 

Dans ce qui a précédé, nous 
avons pris pour exemple le cas 
d'une application, maïs tout ceci 


est réversible et s'applique aussi 
aux accessoires de bureau : 


+ le paragraphe “démarrage de 





l'ouverture de l'accessoire, 
provoqué depuis l'application 
par la routine OpenDeskAcc 
(routine Open du driver) ; 


le passage de l'application à 
l'accessoire correspond ici à un 
événement activateEvt avec le 
bit activeF lag à 1 ; 


le passage de l'accessoire à 
l'application correspond à un 
événement activateEvt avec le 
bit activeFlag à 0 ; 


la fermeture de l'application 
correspond à la fermeture de 
l'accessoire, provoquée depuis 
l'application par la routine 

_CloseDeskAcc (routine Close 


du driver). a 


doit être l'application” correspond à 


DISQUETTE MACINTOSH 24 


Les abonnés aux disquettes “Pom's Macintosh” sont vraiment des veinards : en effet, la disquette 24 
comporte un utilitaire indispensable à tous ceux qui programment - ou même utilisent - le Macintosh. Il 
s'agit de REdit. Ce logiciel est un éditeur de ressources évolué qui autorise l'édition directe des icônes, 
menus, fenêtres, boîtes à dialogue, chaînes de caractères, etc. De plus, c'est aussi un décompilateur 
capable de faire l'inverse de ce que fait RMaker : vous lui indiquez une ressource, il vous en fait un 
source au format RMaker. Pour 80,00 F (66,66 F pour les abonnés)... d'autant plus que comme 
d'habitude, l'acquisition de la disquette d'accompagnement vous évite la saisie des programmes et 
sources listés dans ce numéro ! 


ATTENTION : CE LOGICIEL, ENTRE DES MAINS INEXPERTES, PEUT ÊTRE EXTRÊMEMENT 
“CASSANT” ; IL EST RECOMMANDÉ DE TRAVAILLER UNIQUEMENT SUR DES COPIES. 


" Fichier Cernet Edition Click Région Pays D 


Le traitement 


é File Edit 





abcdefghijkimnopa[r]stuuwnuyz 


Téléphone: |Adresse : 


88 321212 |km 13, route de Longwiller 


67000 





1 / 4 © D.Lenot 


Francophonisme torride ? 


Font/DA Mover version française a perdu les lettres bjkmoqvwyz ! Les auteurs anglophones avaient en effet trouvé, 

à titre d'exemple, une phrase courte représentant fort bien l'alphabet : ‘The quick brown fox jumps over the lazy 
dog’, phrase malencontreusement traduite par : ‘Le renard agile a sauté au-dessus du chien paresseux... 
dit il ne s'agit ni d'une traduction littérale, ni d'une représentation complète de l'alphabet. 
équivalent français de cet exemple classique chez les typographes ? 


, autrement 
Qui nous donnera un bon 
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LE BUNDLE ET LE 


FINDER (HISTOIRE TRISTE) 


MARIANNE SUTZ . 


Ce n'est un secret pour personne, 
le Macintosh, quel que soit le 
langage de programmation 
employé, utilise un grand nombre 
de ‘ressources’ pour la définition 
des menus, fenêtres, messages 
d'erreur, icônes, etc. En fait, 
presque tout ce qui apparait sur 
l'écran du Mac est stocké dans 
des fichiers ‘ressource’. Ceci 
facilite grandement le travail des 
programmeurs (qui peuvent, par 
exemple, modifier la taille d'une 
fenêtre sans toucher au 
programme lui-même) et des 
traducteurs (qui utilisent des 
utilitaires du type “REdit” pour 
‘localiser’ les messages, formats 
d'affichage des nombres, formats 
d'affichage des dates et heures...) 


Dans les ressources de chaque 
application, nous trouvons une 
constante : la partie destinée à 
informer le “Finder”. Nous y 
trouvons le nom de l'application, 
le “créateur” et le “type” (nous 
avons déjà eu l'occasion d'en 
parler dans de précédents 
numéros), la signature de 
l'application, et une ressource de 
type “Bundle”. 


Cette dernière, qui contient la liste 
des identificateurs d'icônes et la 
liste des références des fichiers, 
semble justement poser problème 
à nombre de nos lecteurs. Il est 
en effet certain que la mise en 
ordre des types ICN# et FREF 
n'est pas complètement 
instinctive. C'est pourquoi nous 
Vous proposons une ressource de 
base, autour de laquelle vous 
pourrez construire la ressource de 
votre application. Que cette 
dernière soit écrite en assembleur, 
en Pascal... n'a pas d'importance 
puisque ces langages sont livrés 
avec le compilateur de ressource 
“RMaker”, auquel est destiné le 
fichier listé ci-contre. 












ID = 128 
Type APPL 


ID = 129 
Type TEAT 


1D = 130 
Type TATE 








ichier Démo.R 
Exemple de ‘ressource’ pour une application 


Démo ; Nom de l'application 
APPLPoms ; s:Créateur et type 
Type Poms = STR ;;Signature de l'application 


* 
* 


* 
* 


,0 ;s1dentificateur=0 par convention 

La chaîne suivante contient le nom de l'application, 
le numéro de version, et la date de création. 

Démo - V 2. à la ligne - 22:58:14 - 10.05.86 


Dans un fichier "ressource" destiné à une véritable 
application, nous trouverions ici les ressources de 
type WIND, MENU, DITL, STR, DLOG, etc. 


Ressource de type "Bundle". Elle contient les 
informations pour le Finder. 


Type BNDL 


128 (32) ;ss1dentificateur de la ressource 
(32) est l'attribut de la ressource 

ce qui correspond à "purgeable" 

Poms 0 ;sSignature et identificateur 
Identificateurs des icônes représentant l'application 
et les fichiers qu'elle pourrait créer. 

ICN# 

9 128 1 129 2 130 

REFérence des Fichiers 

FREF 

0 ‘128. 1129210430 





Type FREF ;:Pour l'icône liée à l'application : | 
, 128 (32) ;:Type de fichier = APPL | 
APPL 0 ;::1D 0 pour la liste des icônes 

Type FREF ::Pour l'icône du ler type de fichier : 

12932) ::Type de fichier = TEXT 
TEXT 1 ;::1D 1 pour la liste des icônes 

Type FREF ;:Pour l'icône du 2ème type de fichier : 
> 13032) ;:: Type de fichier = TXT 
TXT@ 2 ;:1D 2 pour la liste des icônes 


* Définition des icônes 


de l'application et des deux 


* types de fichiers générés par cette dernière 
TYPE ICN# = GNRL ; ; Type liste d'icônes 
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* Icône de l'application 

, 128 (32) ;s:1dentificateur de la liste 
2 ;::Nombre=2 (icône et masque) 
00000000 78F3DD86 45099248 78F31044 
40030002 41FB7E0C O7FFEF80 OF4BE860 
1FFB0490 1DB68498 3FDFFO004 3EF8D00C 
3ACB0004 7DFD6002 7FDA0042 7FF90006 
7BFCO00A 7BECO0002 7FEC0026 7FFC4022 
7F640004 3FFD101C 3FB38004 3FFE0028 
1FB6C028 1FF7D810 OFFCC120 079rF98C0 


03FB7300 OOFF7E00 001FF000 00000000 
* 


















































[3 
el 


Dans le cas présent, on a supposé 
que l'application (icône en forme 
de pomme, type APPL) a la 
possibilité de générer deux types 
de fichiers : le type TEXT et le 
type TXT@ ; vous pouvez bien 
sûr modifier les types et la forme 
des icônes, soit en changeant 
directement les valeurs dans le 
source, soit, après compilation du 
source proposé, en éditant les 
icônes avec un utilitaire comme 
“REdit”. 


* Masque 

FDFFFFCEF FDFFFEFFEF FFFFFFFE FFFFFFFF 
FFFFFFFF E7FFFFOF EFFFFFFE I1FFFFFFO 
SFFFFFF8 3FFFFFFC 7FFFFFFE JFFFFFFE 
7FFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 
FFFFFFFF FFFFFFFEF FFFFFFFF FFFFFFFF 
FFFFFFFE 7FFFFFFE 7FFFFFFE 7FFFFFFC 
3BFFFFFFC GSFFFFFF8 1FFFFFFO OFFFFFEO 


i votre application ne génère pas 
O7FFFFCO 03FFFFO00 OO0FFFEO0 001FF000 F PP 8 P 


de fichiers, supprimez les types 
ICN# ID 1 et 2 et les types FREF 





* Icône du ler type de fichier (TEXT) ID 1 et 2. Sielle ne génère qu'un 
,129(32) ;sidentificateur de la liste fichier supprimez seulement 
2 ;s:Nombre=2 (icône et masque) ICN# ID 1et FREF ID 1. 


OFFF0000 08018000 0B014000 0A81E000 
OB6EA000 OA6EA000 F8002000 8BF7A000 
B8002000 AB7FF800 B8400C00 ABD87FF8 
8854400C BBDB580A 8853540F BAC05B75 
885ED375 BBC04001 885BDBED B8404001 
8FDF5BFD B7C04001 8057DDDD BEC04001 
805ESBFD 80404001 FFCFDEFD 00404001 


00405EDD 007FC001 00004001 O0007FFF 
# 





Relations entre les 
types de fichiers 
et le Finder 


* Masque Lorsqu'un utilisateur du 
OFFFO0000 OFFF8000 OFFFCO00 OFFFEO00 Macintosh sélectionne un ou 


He Fan eo FFFFE000 plusieurs fichiers et demande 

dédie) ‘Ouvrir’ ou ‘Imprimer’ dans le 
FFFFFFFC FFFFFFFE FFFFFFFF FFFFFFFF menu ‘Fichier’ ou, tout 
FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF simplement, fait un double click 
FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF eur l'icône dan fichier, 
FFFFFFFF FFFFFFFF FFFFFFFF 007FFFFF l'application concernée est chargé 
OO7FFFFF OO7FFFFF O0007FFF O00007FFF et doit aller lire, dans une zone 


& de que nous allons détailler sans 

* Aoûne Qu Eeue Cypaite Ritter RSR) tarder, des informations sur ce 
,130(32) ;s1dentificateur de la liste qu'a demander l'utilisateur. 

2 ;:Nombre=2 (icône et masque) 
OFFF0000 08018000 OBFF4000 OBFFEO00 
OBFFA000 OBFFA000 F8002000 8BFFA000 
BA00A000 BBFFF800 B8400C00 BBDFFFF8 
8A5FCO00C BBDFDFFA A85FDFFF BBC05FFD 
8BDFDFFD BBD04001 ABDFDFFD B8405005 
8FDFDFFD BFDO04001 BFDFDFFD BFCO05005 
BFDFDFFD 805FC001 FFDFDFFD 005FDFFD 


00405FFD 007FDFFD 00004001 00007FFF 
* 





La variable globale 
AppParmHandle ($AEC) contient 
un Handle (adresse du pointeur) 
sur une zone de mémoire 
relogeable contenant les 
informations recherchées : 


MOVEA.. L AppParmHandle, A2 


* Masque MOVEA.L  (A2),A2 


OFFF0000 OFFF8000 OFFFCO00 0E01E000 ed Pe : 

0E00E000 OFFFEO00 FFFFE000 FFFFEO00 Fo RS 

FFFFE000 EFFFF800 EFFFFCOO FFFFFFF8 SUBQ r2 (A2) 
BGT Plusdel 


FFFO7FFC FFFO7FFE FFFFFOOF FFFFF007 
FETFFFFF FE7FFFFF FFFFFFFF FFFFFFFF 
FFFFFFFF FFFFFFFF EO7FFFFF EO7FFFFF 
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message (16 bits) 


JelUOI} J81u91d 


long. du nom de fichier (8 bits) 
caractères du nom de fichier 


n° de réf. du volume (16 bits) 
type de fichier (32 bits) 
n° de version (8 bits) 


8 bits non utilisés 
long. du nom de fichier (8 bits) 
caractères du nom de fichier 





Zone ‘Message’? 


e sielle contient 0, l'utilisateur a 
demandé l'ouverture d'un ou de 
plusieurs documents ; 


e sielle contient 1, l'utilisateur a 
demandé l'impression d'un ou 
de plusieurs documents. 


Zone ‘Compteur’ 


Elle contient le nombre de 
documents à ouvrir ou imprimer. 
Si cette zone contient 0, cela 
indique que l'utilisateur a 


FFFFFFFF FFFO7FFF FFFO7TFFF 007FF007 
007FF007 007FFFFF 00007FFF OO0O7FFF 2 »| 


* Ajout du code objet de l'application 
* Le fichier Démo.Code est obtenu avec 


Et _— 
— 


* le "Linker" de la manière habituelle 


* 

ë [ 

* 

* Démo 

$ /Output Démo.Code 
* /Type ‘'TEMP' 

* 

: $ 


INCLUDE Démo.Code 





seulement demandé l'ouverture 
de l'application. 


Les zones suivantes apparaissent 
autant de fois qu'il y a de 
documents à ouvrir ou à 
imprimer. 


Zone ‘Numéro de référence 
du volume” 


Ce numéro est attribué par le 
gestionnaire de fichier (routine 
_MountVoi). 


Zone ‘Type de fichier”? 


OSType. Dans le cas d'un 
programme utilisant les res- 
sources listées ci-contre, il 
pourrait s'agir du type ‘TEXT’ 
ou ‘TXT@’ 


Zone ‘Numéro de version 
du fichier” 


Par convention, toujours 0. 
Zone ‘Un octet non utilisé’ 


Zone ‘Longueur du nom’ 
Sur un octet. 


Zone ‘Nom du fichier?’ 


Chaîne contenant les caractères 
composant le nom du fichier, 
plus un caractère nul si le dernier 
caractère du nom se trouve sur 
une adresse impaire (dans le cas 
où le nombre de caractères dans 


le nom est pair). é 


Compatible 
incompatible ? 


Voici la dernière liste des problèmes 
de compatibilité avec le Macintosh 
Plus répertoriés par Apple et revus 
par Pom's. Tout d'abord, il faut 
parler du classement des 
programmes en cinq catégories. 


Catégorie 0 regroupe les logi- 
ciels sans problème, ou possédant 
une version MacPlus. 


Catégorie 1 logiciels qui néces- 
sitent des System et Finder mis au 
goût du jour. 

Catégorie 2 logiciels compa- 
tibles avec cependant quelques 
restrictions. 


Catégorie 3 logiciels allergiques 
à la gestion de fichiers hiérarchique. 
Catégorie 4 les incompatibles. 


Les remèdes. 


Pour les catégories 1 et 2 : 


+ Logiciel non protégé : transférer le 
système du MacPlus sur une 
disquette 800Ko, ainsi que tous les 
fichiers liés au logiciel, et enfin 
copier à l'aide du F/DA Mover du 
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MacPlus les polices et accessoires 
éventuellement nécessaires. 


+ Logiciel protégé : démarrer la 
disquette système du MacPlus et 
lancer l'application Installer, mettre 
dans le second lecteur la disquette du 
logiciel, sélectionner l'option 
“Macintosh Plus System V1.0” et 
cliquer dans ‘Installer’. S'il n'y a pas 
assez de place pour effectuer 
l'adaptation, il vous faut isoler sur 
une disquette 800Ko le système et le 
Finder, que vous adaptez comme 
pour un logiciel non protégé. 

Pour la catégorie 3, il convient de 
travailler sans utiliser de dossiers. 


Pour la catégorie 4, r comme 
pour les logiciels protégés 
(catégories 1 et 2), mais en cliquant 
dans l'option “Clavier Universel” au 
lieu de l'option ‘Installer’ : ainsi, 
vous adaptez le clavier sans modifier 
le reste du système. 


Le classement. 
Catégorie 0 


Gestion Clients, Gestion Comptable, 
Gestion Simil 1.2C, MacListe 2.5, 
MacTap, Maestria, Medimac, 
Talkie-Mac version 2. 

Catégorie 1 


4ème dimension version 2.0, ABC 


Base version 14F, Accessory Pack1, 
AD MacFichier, Addenda Excel, 
Airborne, Challenger, Clic Fiche, 
Click Art, olor Print, 
Communication Edge, Compta Simil 
1.2C, Da Vinci, Esay 3D, 
Enchanter, Excel, ExperLogo 1.1, 
FactFinder, Fokker Triplan, 
FontDA Mover 3.1, Fontastic, 
Gestion Devis 2.01, Griffin 
Terminal, Lode Runner, Logi Font, 
Mac 2392, MacDraw, Macintosh 
Pascal 1.0, MacPaint, MacProject, 
MacSAV, Mac Space, MacSpell+, 
MacTell 112.1, Mac The Kanife (3 
disq.), MacWrite, Magic, 
Management Edge, Megaform 1.0, 
Microsoft Chart 1.0, Microsoft File, 
Mind Prober, Modem Universel 
Apple, Negociation Edge, Paie Mac, 
PES (File, Report), Picture Base, 
ide, Quick Paint, Quick Word, 
Ready Set Go 2.1, Remember, Sales 
Edge, Sargon II, SciFont, Silicon 
Press, SoundCap, StarCross, Stat 
Works, Suspended, Tech Font, TK! 
Solver, Transbase, Versaterm, 
Videoworks, Zork (3 disq.). 
Catégorie 2 
1st Base 2.1, ConcertWare+3.0, CX 
Base 300, CX Base 500, CX Base 
M24, DB Master, Fluent Fonts, 
Jazz, Le Tube …, Mac Tracks, Mac 
Vision, Omnis 3, PageMaker 1.1, 


Switcher 4.4, Telemac Bull, Telemac 
mn ThinkTank, ThunderScan, 
ord. 


Catégorie 3 


Assembleur 68000, Basic 2.0, Color 
Chart 2.0, Crunch 1.0, Dollars and 
Sense, Filevision 1.0, Le Lisp, Lisp 
Expert Kit, Mac C, MacDent, 
MacDraft, MacForth, MacFortran, 
Melusine, Orthogiciel, Overvue 2.0, 
Slide Show Magician. 


Catégorie 4 


Aztec C 1.06G, ChipWits, ClickOn 
Worksheet, Compta Mac, 
MacAdvantage, Mac Agenda, 
MacCommand, Mac Crypt 1, 
MacExpert, MacLion, Mac Manager 
1.1, MacPublisher 1.31, 
MacTerminal 1.0, MacBooster, 
MegaFiler 1.01, MegaMerge 2.0, 
Multiplan, Music Works, Quartet, 
Smooth Talker 2.0, Strategic 
Conquest, Through the Looking 
Glass, Wizardry et la plupart des 
jeux non listés dans les catégories 
précédentes. 


Dans le prochain numéro, nous nous 
attacherons au particularisme des 
certains programmes, tels que : Basic 
2.0, Jazz, MacDraft, MacTerminal 
1.0, MacTracks, Microsoft File, 
Multiplan, Omnis 3,... 
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ANALYSE MULTICRITÈRE 


Nous vous proposons un 
programme d'aide à la décision 
écrit en Applesoft, et fonctionnant 
indifféremment sur Apple ]J[+, 
Ile, /le+ ou //c. 


Théorie 


Les méthodes d'analyse multi- 
critère servent à analyser et 
comparer, en fonction de 
plusieurs critères, un certain 
nombre de décisions possibles, 
que nous appellerons des 
“projets”. Les critères d'évalua- 
tion sont souvent conflictuels : 
ainsi, pour prendre un exemple 
simple, une entreprise cherche en 
même temps à maximiser son 
profit et sa part de marché, ce qui 
— au moins à court terme — est 
contradictoire. 


Les méthodes d'analyse multi- 
critère utilisent deux types 
d'information : un jeu de notes 
(une note pour chaque projet en 
fonction de chaque critère) et une 
série de “poids” représentant 
l'importance relative de chaque 
critère. 


La méthode Electre II, sur 
laquelle repose le programme 
présenté ici, procède de la façon 
suivante : tous les projets sont 
comparés deux à deux, à partir de 
quoi on obtient deux classements 
des projets, permettant ainsi une 
double perspective sur l'ensemble 
des projets. 


Comparaison de deux 
projets X et Y 


Pour chaque paire de projets X et 
Y, on calcule : 

P+T(X,Y) somme des poids des 
critères selon lesquels 
X est meilleur que Y 
somme des poids des 
critères selon lesquels 
X est aussi bon que Y 
somme des poids des 


PT(X,Y) 


P'(X,Y) 


critères selon lesquels 
X est moins bon que 
4 


X est meilleur que Y pour un 
critère quand l'écart entre les 
notes selon ce critère est 
favorable à X et dépasse le seuil 
d'indifférence. Le seuil d'indif- 
férence d'un critère, notion 
propre à Electre, est l'écart 
maximum que l'on peut avoir 
entre les notes accordées selon ce 
critère sans que l'on puisse dire 
que cet égard justifie une 
préférence en faveur du projet le 
mieux noté. 

On calcule de même un indice de 
concordance. 


Indice de concordance 


L'indice de concordance C(X, Y), 
défini ci-dessous, sera d'autant 
plus proche de 1 que la 
préférence vers X par rapport à Y 
sera plus nette. 

C(X,Y) = [P+(X, Y)+PT(X, Y)] / 
EP+(X, Y)+PT(X, Y)+PT(X, Y)] 


On se définit trois seuils de 
concordance C1, C2 et C3, tels 
que : 


1>C1>C2>C3>0 


les valeurs standards proposées 
par défaut par le programme 
Electre II étant 3/4, 2/3 et 3/5. 


Seuils de discordance 


On définit de même deux seuils 
de discordance D1 et D2, tels 
que : 

0 < D1 < D2 


Surclassement fort 


On dira que X surclasse 
fortement Y si les conditions 
suivantes sont remplies : 


soit + PT(X,Y) 2 PT(X,Y) : le 
poids des critères selon 


Serge Cattan 


lesquels X est meilleur 
que Ÿ dépasse celui des 
critères où l'inverse est 
Vrai ; 

+ C(X,Y) 2 C1 : il faut 
atteindre ou dépasser le 
premier seuil de 
concordance ; 

* pour tout critère où Ÿ est 
meilleur que X : Note(Y) 
— Note(X) < D2. 

soit + PT(X,Y) 2 PT(X, Y) 

+ C(X,Y) 2 C2 

+ pour tout critère où Ÿ est 
meilleur que X : Note(Y) 
— Note(X) < DI1. 

Il y aura donc surclassement fort 
dans l'un des deux cas suivants : 
être plus exigeant sur la 
concordance, ou plus sévère sur 
la discordance. 


Surclassement faible 


On dira que X surclasse 
faiblement Ÿ si les conditions 
suivantes sont remplies : 


° PT(X,Y) 2 Pr(X, Y) 

+ C(X,Y) 2 C3 

* pour tout critère où Ÿ est 
meilleur que X : Note(Y) 
— Note(X) < D2. 


En résumé, que le surclassement 
soit fort ou faible, X surclassera 
LATE 

+ d'une part, le poids 
cumulé des critères où X 
est meilleur que Ÿ est 
suffisamment grand, 
relativement à celui des 
critères où l'inverse est 
Vrai ; 

+ d'autre part, il n'existe 
pas de critère selon 
lequel Y est franchement 
meilleur que X. 


Deux méthodes 
de classement 


Electre II fournit comme résultat 
deux classements. 
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Dans le classement direct, les 
éventualités sont rangées de telle 
façon qu'une éventualité X 
précède une éventualité Y si et 
seulement si X est surclassé par 
moins d'éventualités que Y. 


Dans le classement inverse, les 
éventualités sont rangées de telle 
façon qu'une éventualité X 
précède une éventualité Y si et 
seulement si X surclasse plus 
d'éventualités que Y. 


Ces deux classements se réfèrent 
au nombre de surclassements 
forts. Les ex æquo éventuels sont 
départagés par le nombre de 
surclassements faibles. 


Le Programme 


Il comprend un menu de cinq 
rubriques. La première permet de 
saisir le problème. La seconde 


permet de retrouver un problème 
préalablement sauvegardé sur 
disquette. La troisième autorise la 
modification d'une donnée. La 
quatrième donne accès à un mode 
d'emploi détaillé. Quant à la 
dernière, elle se charge du retour 


à l'Applesoft. 


G 





Programme 


‘ANALYSE 


I=0 
410 NC = 


VAL (NC$): IF NC < 2 THEN PRINT "eUNe 


CHIFFRE*>+l1+S,V,P.": GOTO 380 





MUL TICRITERE’ 420 GOSUB 440: GOTO 490 
430 REM =========== DIM TABLEAU ============2== 
Note : une puce (°) dans une chaîne de caractère 440 IF ME = 1 THEN RETURN 
symbolise un espace. 450 DIM AC$ (NA), CR$ (NC) , PO (NC) 
460 DIM DO(NA, NC), NO (NA, 2, 2), RA (NA, 3) , NI (NA), NJ 
100 REM RARARARRARRARARARARARARRRRARÉRRARÉARARÉ RE (NA) , NH (NA) 
CÉLELELELELELLÉESLLELLS 470 DIM PP(NA, NA),PM(NA, NA) ,DM(NA, NA) ,RE (NA, NA, 
110 : 2),D1 (NC) ,D2 (NC), RS (NA, NA, 2) 
120 REM CATTAN Serge ANALYSE MULTI 480 ME = 1: RETURN 
CRITERE 09/85 490 
130 : 500 REM SAISIE =======-=====2==------= 
140 REM RRRRRRAARARÉARRARAARRARÉRARARRRRRÉRRRRARR EX 510 HOME 


HRARARAAARÉRRARARAAÉ ERA 


150 ONERR GOTO 3550 


160 TS = M sssmsosese 


170 D$ = 
180 HOME 
190 INVERSE : PRINT SPC( 40) 


CHR$ (4) 


200 PRINT "eveecsesesee ANALYSE®MULTICRITERE®°.e.e 570 


210 PRINT SPC( 40) 
220 NORMAL 
230 POKE 34,4: VTAB 8 


= " 540 


520 FOR I = 1 TO NA 
530 PRINT : PRINT "ACTIONeN[e":I;"ecessvcsonps I 


NEXT I 


NPUT AC$(I) 


550 FOR I = 1 TO NC 
560 PRINT : PRINT LEFT$ (T$,40);: PRINT : PRIN 
T "CRITERE°N[ce";I;"eoceseoceo":: INPUT CR$(I) 


AL (PO$) 
580 IF POI) 


INPUT "QUEL+-ESTeSON°POIDS+?";}PO$:PO(I) = V 


= O0 THEN FLASH : PRINT “UN°CHIFFR 


Ee<>°0°S,V,.P.": NORMAL : GOTO 570 
590 SI = SI + POI) 


240 PRINT "ANALYSE®+D'UN+PROBLEME®+eve0e--53e]" 600 NEXT I 
250 PRINT "REPRISE®-ANALYSE*-EXISTANTE"++-->e2" 610 HOME 
260 PRINT "“MODIFICATION-DONNEES°-.+09--53e3" 620 


270 PRINT "MODE-D'EMPLOI--eessesseessee-->e4" 630 
280 PRINT "RETOUReAU+BASICevessseseeese——>e5" 
290 POKE 36,11: VTAB 18: INPUT "VOTRE*CHOIX-?°" 


L : PRINT 


FOR I = 1 TO NA 
PRINT : PRINT LEFTS$ (T$,40);: PRINT : INVE 
RSE : PRINT "***-ACTION-";AC$(I);":": NORMA 


PRINT : PRINT "QUEL-EST+SA+°NOTE*D'APRES*+LE+ 


CRITERE-": PRINT CR$(J);"e";z: INPUT DO$:DO( 


VAL (DO$) 


/R$:R = VAL (R$) 640 FOR J = 1 TO NC 
300 ON R GOTO 350,320, 330,4150, 340 650 
310 GOTO 290 
320 GOSUB 3320: GOTO 680 Tsd)r = 
330 GOSUB 3320: GOSUB 2710: GOTO 680 660 IF DO(I,J) 


340 POKE 34,0: END 
350 HOME 


360 VTAB 8: INPUT "NOM°DE°+L'ANALYSE + (?+POUR°LE°® 680 


CATALOGUE) * ?"}NES$ 
370 IF NE$ = "?" OR LEN (NE$) 
3620: GOTO 350 


380 PRINT : INPUT "NOMBRES-D'ACTIONS®ee7?e!#":NA$ 720 PP(I,J) 
VAL (NA$): IF NA < 2 THEN PRINT "-°UN- 730 


390 NA = 


CHIFFRE®>-1+S.V.P.": GOTO 380 
400 PRINT : INPUT "NOMBRE*DE*CRITERES®°?°";NC$:S 750 


= O0 THEN FLASH : PRINT "UN°CHIF 


FRE°<>e0+S,V.P.": NORMAL : GOTO 650 


670 NEXT J,I 


690 
O0 THEN GOSUB 700 


REM CALCUL DES P+ ET DES P- == 








FOR I = 1 TO NA - 1 


710 FOR J = I + 1 TO NA 


= O:PM(I,J) = 0 
FOR K = 1 TO NC 


740 DI = DO(I,K) :DJ = DO(J,K) 


IF DI > DJ THEN PP(I,J) 


= PP(I,J) + PO(K) 
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760 
770 
780 
790 
800 
810 
820 
830 
840 
850 


860 
870 


880 
890 
900 
910 


920 


930 


940 
950 
960 


970 


980 
990 


1000 


1010 


1020 


1030 
1040 
1050 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 


IF DI < DJ THEN PM{I,J) 


= PM(I,J) + PO(K) 


NEXT K 

IF PM(I,J) = O0 THEN PM(I,J) = 0.0001 
NEXT J,I 

HOME 

REM SAISIE COEFFICIENTS ====== 

REM ===================ssss=s=s 
BC = 0: IFR=2ORR = 3 THEN 850 


IF BC = O0 THEN 870 

PRINT : PRINT : INPUT "“VOULEZ-VOUS+MODIFIER 
+ LES °COEFFICIENTS° ° eD1*ETeD2°?7e"}RES$ 

IF LEFT$S (RE$,1) < > "O" THEN 950 


HOME : PRINT "***e SAISIE +DES + SEUILS ° DE ° DISC 
ORDANCE + ***" 

PRINT LEFT$ (T$,40); 

PRINT : PRINT : FOR I = 1 TO NC 


PRINT "POUR°LE®°CRITERE*";CR$(I): PRINT 
PRINT "Di=e"};: INVERSE : PRINT Dl(I);"e";: 


NORMAL : INPUT "ee"»D1$: IF LEN (D1$) > O0 

THEN Dl(I) = VAL (D1$) | 

PRINT "D2=e";: INVERSE : PRINT D2(I);"e"}: 

NORMAL : INPUT "eo"-D2$: IF LEN (D2$) > O0 

THEN D2(I) = VAL (D2$) | 

IF D2(I) = < D1(I) OR D1{(I) = < O0 THEN P 
RINT : FLASH : PRINT "ILeFAUTeOe<eDle<eD2": 
NORMAL : PRINT : GOTO 900 

NEXT I 

HOME 


IF R=2ORR = 3 THEN PRINT : INPUT "VOUL 
EZ-VOUS+MODIFIER*C1,C2,C3°?";RE$: IF LEFTS 

(RE$,1) < > “O" THEN 1030 
HOME : PRINT “***e SAISIE °+DES + SEUILS + DE * CONC 
ORDANCE + ***"" 

PRINT LEFT$ (T$,40); 
PRINT : PRINT "COEFFICIENTeCle?e";: INVERSE 

: PRINT Cl;"-"};: NORMAL : INPUT "eo";C1$: 
IF LEN (C1$) > O THEN C1 = VAL (C1$) 

PRINT : PRINT "COEFFICIENTeC2e°?e";: INVERS 
E : PRINT C2;"+";: NORMAL : INPUT "ee";C2$: 

IF LEN (C2$) > O THEN C2 = VAL (C2$) 

PRINT : PRINT "COEFFICIENT-C3e+?e";: INVERS 
E : PRIN111818111@"%111111111111111111181"_ 

IF LEN (C3$) > O THEN C3 = VAL (C3$) 

IF Cl= >1ORC2= >Cl1lORC3= >C20 
R C3 = < O THEN PRINT : FLASH : PRINT : P 
RINT "ILeFAUTeO®<eC3e<eC2e<eC1e<°1": NORMAL 

: GOSUB 3120: GOTO 970 

REM RELATIONS DE SURCLASSEMENT === 

REM === 

HOME : FLASH : PRINT "“ee**x*e LONGUEURS°DES° 
CHEMINS + ISSUS + ***e°: NORMAL 
K1 = 1:K2 = 2:BC = 1 

FOR I = O0 TO NA 

FOR J = 0 TO NA 

FOR K = K1 TO K2 
RE(I,J,K) = 0 

NEXT K,J,I 

FOR I = K1 TO NA - K1 

FOR J = I + K1 TO NA 
DM(I,J) = O:DM(J,I) = 0 

FOR K = 1 TO NC 
DK = DO(J,K) - DO(I,K) 

IF DM(I,J) = K2 THEN 1200 


IF DK > D2(K) THEN DM(I,J) 
IF DK > D1(K) THEN DM(I,J) 


K2: GOTO 1200 
K1 


1200 
1210 


1220 
1230 
1240 


1250 
1260 
1270 
1280 


1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 


1400 
1410 
1420 
1430 
1440 


1450 
1460 
1470 
1480 
1490 
1500 
1510 


1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 


1610 
1620 


1630 


1640 


1650 
1660 
1670 


1680 
1690 





IF DM(J,I) = K2 GOTO 1230 

IF DK < - D2(K) THEN DM(J,I) = 2: GOTO 12 
30 

IF DK < - D1(K) THEN DM(J,I) = K1 

NEXT K 
RP = PP(I,J) / PM(I,J):RM = K1 - PM(I,J) / 


SI: IF RP = 0 AND PMI{I,J) 
0 

IF RP < K1 GOTO 1410 

IF RM < C1 GOTO 1320 


= 0.0001 THEN 129 


IF DM(I,J) = K2 GOTO 1350 
RE(I,0,K1) = K1:RE(I,0,K2) = K1:RE(I,J,K1) 
= K1:RE(I,J,K2) = K1:RE(0,J,K1) = K1:RE(0,J 
,K2) = K1 

NEXT J 

NEXT I 

GOTO 1530 

IF RM < C2 GOTO 1370 

IF DM(I,J) = O0 GOTO 1280 

GOTO 1380 

IF RP = K1 GOTO 1410 

GOTO 1290 

IF RM < C3 GOTO 1350 

IF DM(I,J) = K2 GOTO 1350 

RE(I,0,K2) = K1:RE(0,J,K2) = K1:RE(I,J,K2) 
= K1 

GOTO 1290 


RM = K1 - PP(I,J) / SI 

IF RM < C1 GOTO 1460 

IF DM(J,I) = K2 GOTO 1290 
RE(J,0,K1) = K1:RE(J,I,K1) 
= K1:RE(J,0,K2) = K1:RE(J,I,K2) 
»K2) = K1 

GOTO 1290 

IF RM < C2 GOTO 1490 

IF DM(J,I) = 0 GOTO 1440 

GOTO 1290 

IF RM < C3 GOTO 1290 

IF DM(J,I) = K2 GOTO 1290 
RE(J,0,K2) = K1:RE(J,I, K2) 
= K1 

GOTO 1290 

FOR I = O0 TO NA 

FOR J = O0 TO NA 

FOR K = K1 TO K2 
RS(I,J,K) = RE(I,J,K) 

NEXT K,J,I 
AZ = 1:BZ2 = 0: 
NL = 0; HOME 

PRINT “"LONGUEURS *DES + CHEMINS +ISSUS+:": PRI 
NT : PRINT 

FOR I = 1 TO NA 
A$ = AC$(NO(I,K1,K1)):GM = 
)):NH(I) = NO(I,K1,K1) :NI(I) 


= K1:RE(0,I,K1) 
= K1:RE(0,I 


= K1:RE(0,I,K2) 


GOSUB 2220 


INT (NO(I,K2,K1 
= NO(I,K2,K1) 


NL = NL + 1: PRINT : PRINT "POURe";A$;", °LO 
NGUEURS=e":GM;"°ETe":NO(I,K2,K2):NJ(I) = NO 
(I, K2, K2) 

IF NL = 7 AND NA < > NL THEN NL = O0: GOSU 
B 3120: HOME 

NEXT I 

GOSUB 3120 

HOME : POKE 36,13: FLASH : PRINTe"***eCLAS 
SEMENT + ***": NORMAL 

RA(K1,K1) = NO(KI1,K1,K1) 

RA(K1,K2) = K1 
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FOR I = K2 TO NA 

IF NO(I,K2,K1) < NO(I - K1,K2,K1) GOTO 174 
0 
RA(I,K2) = RA(I - K1,K2) 

GOTO 1750 
RA(I, K2) 
RA(I,K1) 
NEXT I 
FOR K = K1 TO K2 

FOR I = O TO NA 

FOR J = O TO NA 
RE(I,J,K) = RS(J,I,K) 

NEXT J,I,K 
AZ = - 1:BZ = NA: GOSUB 2220 
NO(0,K2,K1) = 1E30 

FOR I = K1 TO NA 

IF NO(I,K2,K1) < NO(I - K1,K2,K1) GOTO 187 
0 
NO(I,K2,K2) = NO(I - K1,K2,K2): 
NO(I,K2,K2) = I 

FOR J = K1 TO NA 


I 
= NO(I,K1,K1) 


GOTO 1880 


IF RA(J,K1) = NO(I,K1,K1) GOTO 1910 
NEXT J 
RA(J,K2) = RA(J,K2) + NO(I,K2,K2) 


NEXT I 

FOR I = K1 TO NA - 1 
FOR J = I + 1 TO NA 
IF RA(I,K2) < = RA(J,K2) GOTO 1980 

Z = RA(I,K1):RA(I,K1) = RA(J,K1) :RA(J,K1) = 
z 

Z = RA(I,K2) :RA(I, K2) 
z 

NEXT J 

NEXT I 

CL(K1,K1) = RA(KI,K1) 
RA(K1,3) = K1 

FOR I = K2 TO NA 

IF RA(I,K2) > RA(I - 1,K2) GOTO 2060 
RA(I,3) = - ABS (RA(I - K1,3)) 

GOTO 2070 

RA(I,3) = I 

NEXT I 

REM AFFICHAGE CLASSEMENT 


HOME : POKE 36,13: PRINT "***eCLASSEMENT ° * 
*#®: PRINT 

PRINT LEFTS$S (T$,40); 

NL = 0: FOR I = K1 TO NA 

NL = NL + l: PRINT : PRINT ABS (RA(I,3));" 
°"}AC$(RA(I,K1));: IF RA(I,3) < O THEN PRI 
NT "“°EX°AEQUO"; 

IF NL > 9 THEN GOSUB 3120:NL = 0: HOME 
NEXT I 

VTAB 23: PRINT : INPUT 
ENCER°L'ANALYSE® ?";RE$ 


= RA(J,K2) :RA(J,K2) = 


"VOULEZ-VOUS +° RECOMM 


IF LEFT$ (RE$,1) = “O" THEN HOME : GOTO 
840 

GOSUB 3140 

PRINT : INPUT "VOULEZ-VOUS ° IMPRIMER*°CES*°RE 
SULTATS° ?";R$ 

IF LEFT$ (R$,1) = "O" THEN GOSUB 3640 
HOME : GOTO 220 

REM CHEMINS LES + LONGS ===== 

REM =ms=mssssssssssssesssssss 


2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 


2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 


2540 
2550 
2560 
2570 
2580 
2590 


2600 
2610 
2620 
2630 
2640 
2650 


2660 


2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 


2750 
2760 
2770 


2780 
2790 
2800 


2810 





FOR K 
B=0 
FOR I = K1 TO NA 

FOR J = K1 TO NA 

RR = RE(I,J,K) 

IF RR < = 0 GOTO 2450 

B = K1 

IF RE(J,0,K) < > O0 GOTO 2350 
RE(I,J,K) = - RR 

GOTO 2450 

I1=9J 
Bl = 0 

FOR J1 = K1 TO NA 
RT = RE(I1,J1,K) 

IF RT = O0 GOTO 2430 

IF RT > O0 THEN B1l = KI: 
VA = RR - RT 

IF VA > ABS (RE(I,J1,K)) THEN RE(I,J1,K) 
= - VA 

NEXT J1 

IF Bl = O0 THEN RE(I,J,K) 
NEXT J 

NEXT I 

IF B = K1 GOTO 2260 

NEXT K 

FOR K = K1 TO K2 

FOR I = K1 TO NA 
MM = 0 

FOR J = K1 TO NA 

IF ABS (RE(I,J,K)) > MM 
E(I,J,K)) 
NEXT J 
NO(I,K1,K) 
NEXT I 
NEXT K 
FOR I = K1 TO NA 

NO(I,K2,K1) = (NO(I,K2,K1) + NO(I,K2,K2) / 
1000) * AZ + BZ 

NEXT I 

FOR I = K1 TO NA - Kl 

FOR J = I + K1 TO NA 

IF NO(I,K2,K1) > NO(J,K2,K1) THEN 2680 
FOR K = K1 TO K2 

Z = NO(I,K1,K):NO(I,K1,K) 
,K1,K) = 2 

Z = NO(I,K2,K):NO(I,K2,K) 
:K2: KR) :=.Z 

NEXT K 

NEXT J 

NEXT I 

RETURN 

REM MODIFICATIONS 


K1 TO K2 


GOTO 2430 


| 
Q 


THEN MM = ABS (R 


= I:NO(I,K2,K) = MM 


= NO(J, K1,K) :NO(J 


= NO(J, K2,K) :NO(J 


HOME 
PRINT : 
TE° ?"} RES 
IF LEFTS (RES$,1) < > "“O" THEN 2900 
PRINT "POUR+QUELLE + ACTION®?" 
PRINT : INVERSE : FOR I = 1 TO NA: 
/"-"}ACS$ (I): NEXT 
NORMAL : PRINT : INPUT A$:A = VAL (A$) 
IF À < I AND À > O THEN I = A: GOTO 2810 
PRINT : PRINT "ACTION°INEXISTANTE.": GOTO 
2740 
PRINT : 


INPUT "VOULEZ-VOUS + MODIFIER °UNE°NO 


PRINT I 


PRINT "POUR°QUEL+CRITERE®?" 
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2820 
2830 
2840 
2850 
2860 
2870 


2880 


2890 
2900 


2910 
2920 
2930 
2940 
2950 
2960 


2970 
2980 


2990 


3000 


3010 
3020 
3030 
3040 
3050 
3060 


3070 
3080 


3090 


3100 
3110 


3120 


3130 
3140 


3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 


3240 
3250 
3260 
3270 
3280 
3290 





PRINT : INVERSE : FOR J = 1 TO NC 

PRINT J;"-"}»CRS (J) 

NEXT J 

NORMAL : PRINT : INPUT C$:C = VAL (C$) 

IF C < J AND C > O0 THEN J = C: GOTO 2880 

PRINT : PRINT "CRITERE*-INEXISTANT.": GOTO 
2810 

PRINT "NOUVELLEe+NOTE®?e";:: INVERSE : PRINT 
DO(I,J);: NORMAL : PRINT "“ ";: INPUT DOS: 
IF LEN (DO$) > O THEN DO(I,J) = VAL (DOS) 

REM -------————— 

PRINT : INPUT "VOULEZ-VOUS MODIFIER °UNE°AC 
TION+?";RES 

IF LEFTS (RE$,1) < > “O" THEN 3000 

PRINT "LISTE*-DESe+ACTIONS+ePRESENTES°:" 

PRINT : INVERSE : FOR I = 1 TO NA 

PRINT I;"-";ACS$ (I) 

NEXT I 

NORMAL : PRINT : INPUT "ACTION-A+°MODIFIER® 
?";AS$:A = VAL (A$) 

IF À < I AND À > O THEN I = A: GOTO 2990 

PRINT : PRINT "ACTION-INEXISTANTE,": GOTO 
2900 

NORMAL : PRINT : PRINT : INPUT "NOUVEAU*NO 
M°?";ACS$: IF LEN (AC$) > O THEN AC$(I) = À 
C$ 

PRINT : INPUT "VOULEZ-VOUS °MODIFIER°-UN°CRI 


TERE + ?";} RES 


IF LEFTS$ (RE$,1) < > “O" THEN 3100 
PRINT "LISTE+-DES°-CRITERES * PRESENTS°:" 
PRINT : INVERSE : FOR I = 1 TO NC 

PRINT I;"-";CR$S(I) 

NEXT I 

NORMAL : PRINT : INPUT "CRITERE®-A+MODIFIER 
+?7";AS$:A = VAL (A$) 

IF À < I AND À > O THEN I = A: GOTO 3090 
PRINT : PRINT "CRITERE*-INEXISTANT.": GOTO 
3000 

NORMAL : PRINT : PRINT : INPUT "NOUVEAU*NO 
M°?";CR$: IF LEN (CR$) > O0 THEN CR$(I) = C 
R$ 

RETURN 

REM =========22s222ses======2e2e222=œœm= 
POKE 36,0: VTAB 23: PRINT "APPUYEZ°+SUR*°UNE 
+ TOUCHE *POUR*LA*SUITE.": GET C$ 

RETURN 

REM SAUVEGARDE SUR DISQUE ==========2222= 
PRINT 

PRINT D$;"OPEN";NES$ 

PRINT D$;"WRITE";NES$ 

PRINT NA: PRINT NC 

FOR I = 1 TO NA 

PRINT AC$(I) 

NEXT I 

FOR I = 1 TO NC 

PRINT CR$(I): PRINT PO(I): PRINT D1(I): PR 
INT D2(I) 

NEXT I 

PRINT C1: PRINT C2: PRINT C3: PRINT SI 

FOR I = 1 TO NA: 

FOR J = 1 TO NC 

PRINT DO(I,J) 

NEXT J,I 


3300 
3310 
3320 


PRINT D$;"CLOSE" 

RETURN 

REM LECTURE ENREGISTREMENT=============== 
VTAB 23: INPUT "NOM°DE°+L'ANALYSE® (?-POUR°L 
E+CATALOGUE) + ?";NES 

IF NE$ = "?" OR LEN (NES) 
3620: HOME : GOTO 3330 
HOME : INVERSE : POKE 36,8: VTAB 23: PRINT 
"ANALYSE®+FICHIER*-...";NE$: NORMAL 

PRINT 

PRINT D$;"OPEN";NES$ 

PRINT D$;"READ'";NES$ 

INPUT NA: INPUT NC 

GOSUB 430 

FOR I = 1 TO NA 

INPUT ACS$(I) 

NEXT I 

FOR I = 1 TO NC 

INPUT CR$(I): INPUT PO(I): 
PUT D2(I) 

NEXT I 

INPUT C1: INPUT C2: INPUT C3: INPUT SI 

FOR I = 1 TO NA: 

FOR J = 1 TO NC 

INPUT DO(I,J) 

NEXT J,I 

PRINT D$;"CLOSE" 

RETURN 

REM TRAITEMENT ERREUR==========22=52mœuusx 


3330 


3340 = 0 THEN GOSUB 


3350 


3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 INPUT D1(I): IN 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 


IF PEEK (222) = 5 THEN VTAB 10: PRINT "F 
ICHIER-INEXISTANT": PRINT D$;"DELETE";NE$: 
GOSUB 3620: GOTO 3570 

PRINT "ERREUR" 

FOR IT = 1 TO 1000: NEXT 

POKE 34,0: GOTO 180 

REM 

REM LECTURE CATALOGUE 


3550 


3560 
3570 
3580 
3590 
3600 
3610 
3620 


PRINT D$;"CATALOG": PRINT : PRINT "APPUYER 


+ SUR°UNE*+ TOUCHE": GET R$: RETURN 
3630 REM === 
3640 REM LISTING IMPRIMANTE 
3650 REM ============-====-=-=-2=-======- 
3660 PRINT DS$;"PR#3" 
3670 T1$ = " - 











3680 PRINT : PRINT D$;"PR#1" 

3690 N1 = 7:N2 = INT (NA / N1) + 1: IF NA = N1 
THEN N2 = 1 

3700 PRINT CHR$ (27); CHR$ (64);: PRINT : PRIN 
T CHR$ (27); CHR$ (14);: REM GROS CARACTE 
RES 

3710 PRINT "ANALYSE ®+MULTICRITERE*DE*:";NES$ 

3720 PRINT CHR$ (15): REM 132 COLONNES 

3730 L = 1: FOR K = 1 TO N2 

3740 PRINT Ti$ 

3750 PRINT "Dl'";: POKE 36,7: PRINT "D2";: POKE 
36,12: PRINT "POIDS";: POKE 36,22: PRINT "C 
RITERES"; 

3760 POKE 36,40: PRINT "ACTIONSe-->"; 


3770 L1 = L + N1l - 1: IF NA < L1 THEN LI = NA 
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3780 P = 1: FOR J = L TO L1 

3790 POKE 36,42 + 12 * P: PRINT LEFTS$S (ACS$(J), 
10);"."; 

3800 P=P +1 

3810 NEXT J 

3820 PRINT : PRINT T1$ 

3830 FOR J = 1 TO NC 

3840 PRINT D1(J);: POKE 36,7: PRINT D2(J);: POK 


E 36,13: PRINT PO(J); 


3850 POKE 36,19: PRINT LEFT$ (CR$(J),20); 

3860 P = 1: FOR I = L TO L1 

3870 POKE 36,45 + 12 * P: PRINT DO(I,J)}; 

3880 P = P + 1 

3890 NEXT I 

3900 PRINT 

3910 NEXT J 

3920 L = L + Nl: REM PRINT CHR$(12) 

3930 NEXT K 

3940 PRINT : PRINT T1$ 

3950 PRINT "CI = MCE C2 = MrCDp" CIæ NC: 
PRINT 

3960: (REM' === 

3970 PRINT CHR$ (27); CHR$ (64) 

3980 PRINT : PRINT "***e LONGUEUR ° DES * CHEMINS ° IS 
SUSe*x*x" 

3990 PRINT LEFT$ (T1$,79) 

4000 FOR I = 1 TO NA 

4010 A$ = AC$(NH(I)):GM = INT (NI(I)) 

4020 PRINT "POUR-";A$;: POKE 36,30: PRINT "LONG 
UEURS=°";GM;"°ETe";NJ(I) 

4030 NEXT I 

SOS REMISES PRET nr ere 

4050 : PRINT : PRINT : PRINT "***e CLASSEMENT ° *** 

4060 PRINT LEFT$ (T1$, 79) 

4070 FOR I = 1 TO NA 

4080 PRINT ABS (RA(I,3));"-:-°°";AC$(RA(I,K1)); 
: IF RA(I,3) < O0 THEN PRINT "°°EX°AEQUO"; 

4090 PRINT 

4100 NEXT I 

4110 PRINT LEFT$ (T1$, 79) 

4120 PRINT : PRINT D$;"PR#3": PRINT CHR$ (21): 
PRINT 

4130 GOTO 180 

4140 RETURN 

4150 REM MODE D'EMPLOI == 








PRINT D$;"PR#3": PRINT 


INVERSE :. PRINT "ecsssescsecseseeeeseeeANALYS 
E+MULTICRITEREves.osesseeveessseesescsseece 
CEE LE LE] 

NORMAL : PRINT : PRINT : SPEED= 140 

PRINT “-++Ce-programme*a-pour-but-de-vous®+ 
aider-à-faire-le-bon-choix." 

PRINT "L'algorithme-développé-ici-est-celu 
i-de-Roy-Bertier-et-Bernard-Besson" 

PRINT "“appelé-Electre-2-qui-signifie-:-Eli 
mination-et-choix-traduisant-la-réalité." 
4230 PRINT : PRINT "Cette-méthode-permet «d'obte 
nireuneclassement -unique-à-partir-de-plusie 


ur" 


4220 
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4240 


4250 


4260 


4270 


4280 


4290 


4300 


4310 


4320 


4330 


4340 


4350 


4360 


4370 


4380 


4390 


4400 
4410 


4420 


4430 


4440 
4450 


4460 


4470 


4480 


4490 


4500 


4510 


4520 


4530 
4540 


Fichier de démonstration page suivante. 


PRINT "classements-différents-et-souvent°-c 
ontradictoires." 

PRINT : PRINT "Le-problème-doit se-présent 
er-sous-forme-d'un-tableau-avec, ‘en-colonne 
LL4 

PRINT "les-'actions',-et-en-ordonnée-les®c 
ritères.Le-butesera-de-déterminer-la" 

PRINT "meileure-action-compte-tenu-des-cri 
tères." 

PRINT : PRINT "A-chaque-critère*sera-affec 
té*2-coefficients-de-divergence-Dl-et°D2" 

PRINT : PRINT "“Afin-de-limiter-les-ex-aequ 
os-vous-choisirez-3-coefficients-de-converg 
ence" 

PRINT "“baptisése+Cl,°C2,-et°-C3." 

PRINT : PRINT "“Ces-coefficients-devront-ré 
pondre-aux-règles-suivantes-:" 

PRINT "O<D1<D2--et-e+0<C3<C2<C1<1°." 

PRINT : PRINT "“Vous-donnerez-également-un* 
poids-à-chaque-critère.Ce-poids-est-bien-sû 
re" 

PRINT "subjectif.Le-mieux-est-de-s'imposer 
-une*échelle-de-valeurs, ‘de*0-à°20" 

PRINT "par-exemple, ‘lesenotes-étant-attrib 
uées-dans*l'ordre-croissant*-des" 

PRINT “préférences." 

PRINT : PRINT "La+tache-est-plus-facile, °1 
orsqu'on-dispose-de-données-chiffrées, mais 

PRINT "étant -donné-que-les-valeurs-les-plu 
segrandes-sont-attribuées-aux-actions" 

PRINT "les-meilleures-il+faudra-dans-le-ca 
s-d'un-cout, -par-exemple, *changer-le" 

PRINT "“lessigne-afin-d'inverser-+l'ordre." 

PRINT : PRINT "“Prenons-pour-exemple-le-cho 
ix-d'une-voiture:" 

PRINT "Les-actions-seraient*les-marques*:G 
OLF+GTI, * RENAULT °5+TURBO-etc." 

PRINT "Les-critères-seraient-les-caractéri 
stiques+:VITESSE+MAX, ® CONSOMMATION, " 

PRINT "PRIXeetc." 

PRINT "Lesevitesseseseront-des-chiffres-po 
sitifs, -tandis-que-les-consommations" 

PRINT “eteles-prix-seront-des-chiffresenég 
atlfs." | 

PRINT : PRINT "Si-le-nombre-d'ex-aequo-est 
etrop-important, -vous-pourrez-augmenter-les 

PRINT "coefficients-D1l,-*D2-ou/et-diminuere 
les-coefficientseCl,+C2,+et°+C3" 

SPEED= 255 

PRINT : PRINT : PRINT "CE+PROGRAMME‘A°ETE°+ 
INSPIRE ° PAR°+L'ARTICLE®DE°DANIEL ° FERRO®PARU* 
DANS + LA" 

PRINT "REVUE*SCIENCE*-ETeVIE." 

PRINT : PRINT "“APPUYEZ °SUReUNE + TOUCHE + POUR 
+ RETOUR*AU°MENU.": GET R$ 

PRINT CHR$ (21) 

GOTO 180 


(POCRLTLREZ 









SR Sd 
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Fichier “VOITURE” 


7 

pi 

AUDI 100 

BMW 520 I 

CITROEN CX 25 GTI 
FORD SIERRA 2.3 

OPEL SENATOR 2L 

P. 505 GTI 

RENAULT 25 GTX 

. VITESSE MAXI 

4 

5 

10 

1000 M DEPART ARRETE 
4 

2.5 

80 À 120 KM/H EN 5IEME 
2 

100 

200 

CONSOMMATION 90 KM/H 


Éasicium. 


S 


“le Basic corichi 


Cet utilitaire vous permet de : 


Imprimer 


l'écran 40 ou 80 colonnes 
; ; bi Va s) LE 3 





Nettoyer mémoire très 
rapidement par “JF”. 


Gérer des messages, la 
réponse étant contrôlée. 





TENUE DE ROUTE 
4 

1 

2 

CONFORT 


-132000 
190 
=31 


Gérer des masques 40 ou 80 


-585 
7.99 
5 

9 
-117000 
192 
312 
—415 
739 
té 

9 
—120000 
182 
—33 
-570 
7525 
6 

7 
-88000 
180 
-33 
—670 
-7.45 
5 


onnes. Ces écrans, définis La 
de la programmation, s'affichent … 
par la pe: cormande * SA 





Saisir toutes Le ble d'u un. 


écran en une seule commande “1” 7. 


en contrôlant le type et la. 
longueur. 





Mais aussi, ne saisir que l'une des 
variables affectées à un écran, es 


afficher, les effacer, 








7 
-112000 
186 
-31.6 
—425 
-7:05 

7 

7 
—98000 
192 
291.5 
-380 
6.75 

8 

8 
-105000 
5000 








Basic en a 
arrière, 


modifier, sure 






D F TTC, franco 





EPE ancienne 
Fe on contre 5.0. 
80,00 F TTC Franco 
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Hard-Copy sur Seïkosha GPSOUA 


Jean-Marc Roulon 


double. 


+ ORG + 6: 
PAGE HGR1($20) ou PAGE 
HGR2($40) 


e programme possédant 

ses propres compteurs 

et drapeaux, il peut être 

associé à n'importe quel 
autre programme après as- 
semblage à une adresse adéquate. 
L'appel du programme se fait à 
ORG + 233 ($E9) et permet une 
copie "hard" de l'une des 2 pages 
graphiques après initialisation des 
adresses suivantes : 


INVERSE($01) 


ORG + 3 : 
impression SIMPLE($00) ou 
DOUBLE($01) 


ORG + 4 : 
SANS CADRE($00) ou AVEC 
CADRE($01) 


ORG + 5 : 
POSITION du dessin par 


rapport au bord gauche du 
papier. De 0 à 255 ($00 à $FF) 


IMPORTANT : il ne faut pas 
configurer les ports ‘série’ par 
l'utilitaire système, le programme 
initialisant lui-même la sortie 
imprimante (slot 1). é 





+ ORG +2: en impression simple et de O à 

mode NORMAL($00) ou 50 ($00 à $32) en impression 
Fe 
Source 38 INITCAR HEX Da ROUE is _ HGRH e 
‘T.DHARD' ÉLCRELLLLLLLLLLLLLLLLLLILLL _ SBC #$04 È 
40 * INITIALISATION * 8 STA  HGRH e 
Assembleur BIG MAC 41 * DES COMPTEURS * 84 DEC COMPT3 à 
F 
PAELELLLLLLLLLLLLLELLLLEL) 85 BNE PGRM a 
PRELLELEZLILILLLLILIILII LILI 43 JSR DLIGNE 86 LDA  HGRTAMP ë 
2 * * 44 JSR SUITE5-5 87 STA  HGRH È 
3 * DOUBLE.HARD.COPIE.HGR * 45 JSR DCADRE 88 LDA  HGRL à 
4 * POUR SEIKOSHA GP-500AS * 46 LDA #$D0 83 CLC S 
5 * SUR APPLE//C * 47 STA COMPT5 30 ADC  #$80 $ 
6 * * 48 DEBUT  STA HGRL 91 STA  HGRL $ 
7% * 49 JSR DLIGNE 32 BCS BB È 
8 * PAR J-M ROULON * 50 JSR DPOS 93 DEC  HGRH à 
9 * * 51 LDA #500 94 BB LDA HGRH ë 
10 * LE 23/JANVIER/1986 * 52 JSR COUT 95 STA  HGRTAMP 8 
11 * * 53 LDY #500 96 DEC COMPT2 e 
PPAELLLLLLLILIILILILII LI. 11. 54 LDX #$00 97 BNE B2 Ë 
13 55 LDA  #$03 38 LDA  HGRL à 
14 56 STA  COMPTI 99 SEC à 
OR LLLLLLLLLLLLLILIIL] 57 B1 LDA PAGE 100 SBC #$528 à 
16 * LES ADRESSES * 58 STA HCRH 101 STA HGRL S 
PPALLELLLLELIIETSSLLS LS. 59 STA HGRTAMP 102 DEC  COMPT1 Ÿ 
18 OUTPORT EQU $FE95 60 LDA #$08 103 BNE B1 ù 
19 COUT EQU S$SFDED 61 STA COMPT2 104 JSR FLIGNE & 
20 NBCAR  EQU $07F9 62 B2 LDA #$08 105 LDX #$00 La 
21 63 STA COMPT3 106 CPX DOUBLE 8 
22 ORG $6000 64 RRRRRRRRRARRARÉRÉRRRÉÉ 107 BEQ SUITE3 $ 
23 65 * PROGRAMME-MAITRE * 108 JSR DLIGNE à 
24 HGRTAMP DS $01 66 ÉLLILLLLLLLLLLLLSLÉLEE) 109 JSR DPOS à 
25 TAMP DS  $o1 67 PGRM HEX AD "LDA" 110 LDA #$00 S 
26 INVERSE DS  $01 68 HGRL HEX 00 111 JSR COUT = 
27 DOUBLE DS  $01 69 HGRH HEX 00 112 È 
28 CADRE DS  $01 70 CPX INVERSE 113 LIGNEZ2 LDA ADR2,Y S 
29 POSITION DS  $01 71 BEQ SUITE 114 AND #$7F È 
30 PAGE DS  $01 72 EOR #$FF 115 JSR  COMPAR à 
31 COMPTI DS  $01 73 SUITE AND #$7F 116 JSR COUT Ê 
32 COMPT2 DS $01 74 CPX DOUBLE 117 JSR COUT È 
33 COMPT3 DS $01 75 BEQ AA 118 STX NBCAR È 
34 COMPT4 DS  $01 76 JSR DHARD 119 INY ë 
35 COMPT5 DS $01 77 AA JSR COMPAR 120 CPY #$C0 1 
36 ADR1 DS  $01 78 JSR COUT 121 BNE  LIGNE2 ss 
37 ADR2 DS  $D1 79 STX NBCAR 122 JSR FLIGNE à) 
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123 SUITE3 INC COMPTS 173 UMP  DEB3 223 JSR BCADRE 
124 LDA COMPTS 174 RETURN CLC 224 RETOUR RTS 
-125 CMP #$F8 175 ROR 225 AARRÉRERREEAIRÉ EEK 
126 BEQ FIN 176 CLC 226 * FIN DE LIGNE * 
127 JUMP  DEBUT 177 ROR ADRI1 227 FRRRRRARERÉER ER EE EE 
128 FIN JSR DCADRE 178 STA ADR2,Y 228 FLIGNE LDA #$00 
129 RTS 179 INY 229 JSR COUT 
130 ##*XRR#% #4 EEE RER R À # 180 LDX #$00 230 CPX CADRE 
131 * SOUS-PROGRAMME * 181 LDA ADRI1 231 BEQ SUITES 
132 * DOUBLE HARD.COPY.HGR * 182 AND #$7F 232 LDX #$507 
PÉRRELLELELLLLLLLLLILLLILS IS 183 JSR COMPAR 233 JSR BCADRE 
134 DHARD STA  TAMP 184 JSR COUT 234 LDA #$00 
135 LDA #$00 185 RTS 235 JSR COUT 
136 STA ADRI1 186 RRRRRRRRRRÉARAARÉRRÉRRRÉRÉÉÉ 236 SUITES LDA #509 
137 CLC 187 * COMPARAISON x 237 JSR COUT 
138 LDX #$04 188 * AVEC CHR$(9)&CHR$(13) * 238 LDA #$37 
139 STX COMPT4 189 RRRRARRRRÉRRRRRRRÉRÉRRÉÉÉ RÉ 239 JSR COUT 
140 DEB1 DEC COMPTA 190 COMPAR CMP #$09 240 LDA #$50 
141 BEQ SUITE 191 BEQ CC 241 JSR COUT 
142 ROR TAMP 192 CMP #$0D 242 LDA #$0A 
143 BCC' C0 193 BNE DD 243 JSR COUT 
144 ROR ADRI1 194 CC ADC #$01 244 LDA #$0D 
145 SEC 195 DD RTS 245 JSR COUT 
146 ROR ADRI1 196 FARARARRRRARAEEÉAÉRÉÉ EE 246 LDA #$00 
147 JMP  DEB1 197 * INITIALISATION * 247 JSR OUTPORT 
148 CO ROR ADRI 198 * DE L'IMPRIMANTE * 248 RTS 
149 CLC 199 *RRARRARERMENRÉE AAA AR 249 *R*RRRKRARHRARARREAXX 
150 ROR ADRI 200 DLIGNE LDA #$01 250 * LE CADRE * 
151 JMP DEB1 201 YJSR OUTPORT 251 ARARARRARÉARARRÉRRÉRX 
152 SUITE1 ROR TAMP 202 LDX #$0A 252 DCADRE LDX #$00 
153 BCC SCO 203 BLIGNE LDA INITCAR,X 253 CPX CADRE 
154 ROR ADRI1 204 JSR COUT 254 BEQ RETURN2 
155 SEC 205 DEX 255 JSR DLIGNE 
156 ROR 206 BNE BLIGNE 256 JSR DPOS 
157 JUMP  DEB2 207 RTS 257 LDX #194 
158 SCO ROR ADRI1 208 **A#%% EEE AE EEE 258 JSR BCADRE 
159 CLC 209:* POSITION * 259 CPX DOUBLE 
160 ROR 210 * ET * 260 BEQ FLIGNE+5 
161 DEB2 STX COMPT4 211 * CADRE * 261 LDX #192 
162 DEB3 DEC COMPT4 212 *RRRARARRAARAREEÉ EEE 262 UJSR BCADRE 
163 BEQ RETURN 213 DPOS LDX POSITION 263 JMP  FLIGNE+S5 
164 ROR TAMP 214 BPOS BEQ SUITE4 264 RETURN2 RTS 
165 BCC C20 215 LDA #$00 265 BCADRE LDA #$7F 
166 ROR 216 JSR COUT 266 JSR COUT 
167 SEC 217 STA  NBCAR 267 LDY #$00 
168 ROR 218 DEX 268 STY NBCAR 
169 JMP  DEB3 219 UMP  BPOS 269 DEX 
170 C20 ROR 220 SUITE4 CPX CADRE 270 BNE BCADRE 
27 CLC 221 BEQ RETOUR 271 RTS 
172 ROR 222 LDX #$07 216 END 





Programme ‘COPIEHGR’ 


Les + symbolisent des espaces. 


S HOME :T$(1) = "OPTIONS D'IMPRESSION":T$ 
2) = M #:A$(1) = "I 


MPRIMER UNE PAGE GRAPHIQUE":A$(2) = "CH 
ARGER UNE PAGE GRAPHIQUE":A$(3) = "VOIR 
UNE PAGE GRAPHIQUE":A$(4) = "LARGEUR D 
"IMPRESSION :" 

10 A$(5) = "NUMERO DU LECTEUR°+e:":AS$S(6) 
= "MODE D'IMPRESSION--°-:":A$(7) = "NUM 
ERO DE PAGE°-°c9°9e:":A$(8) = "AVEC CADR 
Ecses...e..e:":A$(9) = "POSITION (0/° 


c.000e:":OP$(6) = "125": PRINT CHR$ (4 
) ; "BLOAD DHARD" 

20 DATA 8,9,2,4,6,11,13,15,17,19,21 

30 FOR I = 1 TO 2: READ V: HTAB 12: VTAB 
V: PRINT T$(I);: NEXT I: FOR I = 1 TO 9 


: READ V: ATAB 3: VTAB V: INVERSE : PRI 
NT I;: NORMAL : PRINT " - ";A$(I): NEXT 
I: RESTORE 


40 GOSUB 80: GOSUB 400: GOSUB 500: GOSUB 
600: GOSUB 700: GOSUB 800: GOSUB 910: G 
OSUB 70 


50 X = PEEK ( - 16384) - 176: IF X < 1 OR 


X > 9 THEN 50 
— 16368,0: ON X GOSUB 100,200, 30 


60 POKE 
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0, 400, 500, 600, 700, 800, 900: GOSUB 70: GO 





:LP$ = "255)": RETURN 








TO 50 500 IF L = 1 THEN OP$(2) = "2":L = 0: RET 
70 V = 11: FOR I = 1 TO 6: HTAB 30: VTAB V URN 
: PRINT OPS$(I);"ee":V = V + 2: NEXT I: 510 OP$(2) = "l":L = l: RETURN 
HTAB 21: VTAB 21: PRINT LPS$;: RETURN 600 IF M = 1 THEN OP$(3) = "INVERSE": POK 
80 FLASH : HTAB 5: VTAB 24: PRINT "APPUYE E 24578,1:M = 0: RETURN 
R SUR LE NUMERO DESIRE";: NORMAL : RETU 610 OP$(3) = "NORMAL "“: POKE 24578,0:M = 1 
RN : RETURN 
100 CALL 24809: RETURN 700 IF P = 1 THEN OP$(4) = "2": POKE 2458 
200 POKE 34,23: HOME : INPUT "eeeNOM ?:"; 2,95:P = O0:AD = 4000: RETURN 
N$: PRINT CHRS$S (4);"BLOAD ";N$;",D"; 710 POKE 24582,63:P = 1:OP$(4) = "l":AD = 
VAL (OP$(2));",AS$";AD: POKE 34,0: GOSU 2000: RETURN 
B 80: GOSUB 300: RETURN 800 IF C = 1 THEN OP$(5) = "OUI": POKE 24 
300 POKE - 16304,0: POKE - 16297,0: POK 580,1:C = 0: RETURN 
E - 16302,0: POKE - 16349,0: POKE - 810 OP$(5) = "NON": POKE 24580,0:C = l: RE 
16349 + ASC (OP$(4)),0: GET R$: TEXT TURN 
: RETURN 900 POKE 34,23: HOME : INPUT “eesPOSITION 
400 IF IM = 1 THEN OP$(1) = "DOUBLE": POK 2:";OP$S(6): POKE 34,0: GOSUB 80 
E 24579,1:1IM = O:LP$ = "80)°": RETURN 910 POKE 24581, VAL (OP$(6)): RETURN 
410 OP$(1) = "SIMPLE": POKE 24579,0:IM = 1 
"4 LI = 
Récapitulation 
5 3  60C8- FF FF 00 00 FF FF 00 00 61C8- 60 FO 19 6E 01 60 90 OA 
DHARD 60D0- FF FF 00 00 FF FF 00 00  61D0- 6E OC 60 38 6E OC 60 4C 
60D8- FF FF 00 00 FF FF 00 50  61D8- C6 61 6E OC 60 18 6E OC 
Après avoir saisi ce code sous 60E0- 32 09 08 44 35 09 50 37  61E0- 60 4C C6 61 6E 01 60 90 
moniteur, vous le sauvegarderez par : 60E8- 09 20 32 62 20 6E 62 20 61E8- 08 6E OC 60 38 6A 4C F6 
BSAVE DHGR,A$6000,L$2C0 60F0- 92 62 A9 DO 8D 0B 60 8D 61F0- 61 6E OC 60 18 6A 8E OA 
60F8- 22 61 20 32 62 20 43 62 61F8- 60 CE OA 60 FO 11 6E O1 
6000- FF FF 00 00 FF FF 00 00 6100- A9 00 20 ED FD AO 00 A2 6200- 60 90 06 6A 38 6A 4C F9 
6008- FF FF 00 00 FF FF 00 00 6108- 00 A9 03 8D 07 60 AD 06 6208- 61 6A 18 6A 4C F9 61 18 
6010- FF FF 00 00 FF FF 00 00 6110- 60 8D 23 61 8D 00 60 A9 6210- 6A 18 6E OC 60 99 OD 60 
6018- FF FF 00 00 FF FF 00 00 6118- 08 8D 08 60 A9 08 8D 09 6218- C8 A2 00 AD OC 60 29 7F 
6020- FF FF 00 00 FF FF 00 00 6120- 60 AD 00 00 EC 02 60 F0 6220- 20 27 62 20 ED FD 60 C9 
6028- FF FF 00 00 FF FF 00 00 6128- 02 49 FF 29 7F EC 03 60 6228- 09 FO 04 C9 OD DO 02 69 
6030- FF FF 00 00 FF FF 00 00 6130- FO 03 20 B8 61 20 27 62 6230- 01 60 A9 01 20 95 FE A2 
6038- FF FF 00 00 FF FF 00 00 6138- 20 ED FD 8E F9 07 AD 23 6238- OA BD DE 60 20 ED FD CA 
6040- FF FF 00 00 FF FF 00 00 6140- 61 38 E9 04 8D 23 61 CE 6240- DO F7 60 AE 05 60 FO OC 
6048- FF FF 00 00 FF FF 00 00 6148- 09 60 DO D5 AD 00 60 8D 6248- A9 00 20 ED FD 8D F9 07 
6050- FF FF 00 00 FF FF 00 00 6150- 23 61 AD 22 61 18 69 80 6250- CA 4C 46 62 EC 04 60 FO 
6058- FF FF 00 00 FF FF 00 00 6158- 8D 22 61 BO 03 CE 23 61 6258- 05 A2 07 20 B2 62 60 A9 
6060- FF FF 00 00 FF FF 00 00 6160- AD 23 61 8D 00 60 CE 08 6260- 00 20 ED FD EC 04 60 F0 
6068- FF FF 00 00 FF FF 00 00 6168- 60 DO B1l AD 22 61 38 E9 6268- OA A2 07 20 B2 62 A9 00 
6070- FF FF 00 00 FF FF 00 00 6170- 28 8D 22 61 CE 07 60 DO 6270- 20 ED FD A9 09 20 ED FD 
6078- FF FF 00 00 FF FF 00 00 6178- 95 20 5F 62 A2 00 EC 03 6278- A9 37 20 ED FD A9 50 20 
6080- FF FF 00 00 FF FF 00 00 6180- 60 FO 24 20 32 62 20 43 6280- ED FD A9 OA 20 ED FD A9 
6088- FF FF 00 00 FF FF 00 O0 6188- 62 A9 00 20 ED FD B9 OD 6288- O0D 20 ED FD A9 00 20 95 
6090- FF FF 00 00 FF FF 00 00 6190- 60 29 7F 20 27 62 20 ED 6290- FE 60 A2 00 EC 04 60 F0 
6098- FF FF 00 00 FF FF 00 00 6198- FD 20 ED FD 8E F9 07 C8 6298- 18 20 32 62 20 43 62 A2 
60A0- FF FF 00 00 FF FF 00 00  61A0- CO CO DO EA 20 5F 62 EE 62A0- C2 20 B2 62 EC 03 60 FO 
60A8- FF FF 00 00 FF FF 00 00 61A8- 0B 60 AD 0B 60 C9 F8 F0 62A8- BB A2 CO 20 B2 62 4C 64 
60B0- FF FF 00 00 FF FF 00 00 61B0- 03 4C F7 60 20 92 62 60 62B0- 62 60 A9 7F 20 ED FD A0 
60B8- FF FF 00 00 FF FF 00 00 61B8- 8D 01 60 A9 00 8D OC 60 62B8- 00 8C F9 07 CA DO F3 60 
60C0- FF FF 00 00 FF FF 00 00 61C0- 18 A2 04 8E OA 60 CE OA 
— 
so On ne peut 'BRUNer' ce programme. ORG=24576 (=$6000) POKE ORG+4,0 
£ © | Dans la pratique, pour imprimer la page BLOAD DHGR,A24576 POKE ORG+5, 0 
€ = graphique 1 en normal, double, sans POKE ORG+2,0 POKE ORG+6, 32 
QG | cadre, à gauche, vous ferez : POKE ORG+3, 1 CALL ORG+233 
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Les possesseurs d'un Apple //e 
ancien modèle (avec microproces- 
seur 6502) qui souhaitent le 
moderniser et le rendre 
compatible avec le //c peuvent 
acheter un “kit de mise à niveau 
‘65C02”. Il leur en coutera 
1000,00 F environ, mais après, 
Ô! merveille. 


Épistole //c et compagnie vous 
montrent plein de petites icônes 
en mode texte, et, pour les 
assemblistes invétérés, ProCODE 
vous permet d'employer 27 
nouvelles instructions, et 2 
nouveaux modes d'adressage en 
langage machine, renouvelant 
ainsi le plaisir de la program- 
mation en assembleur. 


Tout serait pour le mieux dans le 
meilleur des mondes possibles si 
toutefois la ‘documentation’ 
fournie avec le kit 65C02 
dépassait le stade de l'installation 
de ce dernier... Le but de cet 
article est de faire le tour des très 
intéressantes possibilités de ces 
nouvelles ROMSs. Notez que cela 
concerne aussi les possesseurs de 
lIc.. Pour la liste des différences 
entre les ROMSs Basic et F8, vous 
pouvez vous reporter à l'article 
d'Yvan Koenig publié dans le 
numéro 21 de Pom's. 


Commençons par le microproces- 
seur. Celui-ci est maintenant un 
CMOS 6502, ou 65C02 (Métal / 
Oxyde / Silicium, alimentation 
Complémentaire), technologie 
permettant une faible consom- 
mation (4 mA). 


Nouvelles 
instructions 


+ BRA (BRanch Always) : 
branchement inconditionnel. 
Prend 2 cycles (3 si 
changement de page). 

+ DEA (DEcrement Accumu- 

lator) : retranche 1 au contenu 





de l'accumulateur. Agit sur N 
et Z. Durée : 2 cycles. 

INA (INcrement Accumu- 
lator) : ajoute 1 au contenu de 
l'accumulateur. Agit sur N et 
Z. 2 cycles. 

PHX (PusH X on stack) : 
met le registre X sur la pile. 
N'affecte pas le registre d'état. 
Prend 3 cycles. 

PHY (PusH Y on stack) : met 
le registre Y sur la pile. 3 
cycles. 

PLX (PulL X from stack) : 
met l'octet situé au sommet de 
la pile dans X et décrémente le 
pointeur de pile S. Prend 4 
cycles, et agit sur Net Z. 
PLY (PulL Y from stack) : 
met l'octet situé au sommet de 
la pile dans Y et décrémente S. 
4 cycles. Agit sur N etZ. 

STZ (STore Zero) : met à 00 
l'octet situé à l'adresse 
spécifiée. N'affecte pas le 
registre d'état. "STZ abs" 
prend 4 cycles, "STZ zpg" 3 
cycles, "STZ zpg,X" 4 cycles, 
"STZ abs,X" 5 cycles. 

TRB (Test and Reset memory 
Bits with accumulator, ouf !) : 
les bits 6 et 7 de la mémoire 
sont copiés dans V et N 
(comme pour BIT), puis les 
bits à 1 dans l'accumulateur 
mettent à zéro les bits de même 
rang dans Ia mémoire 
(M<-AM). Par exemple, si 
A=%10010111 et ADR 
contient %10101010, TRB 
ADR donne N=1, V=0, ADR 
contient 00101000. TRB agit 
sur N,V,Z. "TRB abs" prend 6 
cycles et "TRB zpg" 5 cycles. 
TSB (Test and Set memory 
Bits with accumulator) : les 
bits 6 et 7 de la mémoire sont 
copiés dans V et N, puis les 
bits à 1 de l'accumulateur 
mettent à 1 les bits correspon- 
dants de la mémoire 
(M<-AvM). N,V,Z sont modi- 
fiés. "TSB abs" prend 6 cycles 
et "TSB zpg" 5 cycles. 


Nouveaux 
modes d'adressage 


Indirect page zéro 


Exemple : LDA ($06) charge 
l'accumulateur avec le contenu de 
l'adresse qui se trouve au 
double-octet (ordre L,H) spécifié. 
C'est équivalent à "LDY #$00 
puis LDA (zpg),Y", mais 


nettement plus pratique ! Avec ce 
mode d'adressage, CMP prend 2 
cycles, et ADC, AND, EOR, 
LDA, ORA, SBC, STA, 5 
cycles. Par exemple, s'il y a $01 
en $B8 et $08 en $B9, "LDA 
($B8)" exécutera "LDA $0801". 
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Indirect indexé absolu 


Ne s'applique qu'à l'instruction 
JMP abs(ind,X). X est ajouté à 
‘ind', et on effectue un JMP à 
l'adresse contenue dans le mot de 
16 bits pointé par le résultat. Ce 
mode d'adressage est très 
pratique pour gérer des tables 
d'adresses de sous-programmes, 
par exemple dans les amper- 
interpréteurs. Cette instruction 
JMP prend 6 cycles. 


Notons qu'à la différence du 
6502, dans le cas d'un JMP 
indirect du type "JMP ($xxFF)", 
l'adresse de la page augmente 
d'un et cela ajoute un cycle à la 
durée de l'instruction 65C02 (ce 
n'était pas le cas avec le 6502). 


Autres différences 


Voilà pour les nouvelles instruc- 
tions. Mais ce n'est pas tout... En 
effet, la gestion des interruptions 
a quelque peu changée : avec le 
6502, après un BRK, le vecteur 
d'interruption est chargé dans le 
compteur ordinal et le vecteur 
BRK est ignoré. Avec le 65C02, 
le BRK est exécuté, puis 
l'interruption est exécutée. 


Enfin, une dernière différence 
pouvant poser quelques problè- 
mes : les codes inutilisés. En 
effet, il y a 256 codes d'instruc- 
tions machine possibles, mais 
seulement 178 sont utilisés. Avec 
le 6502, les codes inconnus 
étaient interprétés de façon 
hasardeuses. Certains donnaient 
de nouvelles instructions (Ce bug 
a d'ailleurs été exploité par Apple 
à l'adresse $FAF4 de la ROM de 
l'ancien //e), d'autres plantaient 
carrément l'Apple. Avec le 
65C02, toutes les instructions 
inconnues sont interprétées 
comme des NOP (pas d'opéra- 
tion). Mais, selon le code, 
l'instruction aura 1, 2 ou 3 octets 
et durera de 1 à 8 cycles : 


CODE OCTETS CYCLES 
X2 2 2 
X3,X7,XB,XF L L 
44 2 3 
54,D4,F4 2 £ 
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5C 3 8 
DC, FC 3 4 


X = chiffre hexadécimal 
quelconque 


Si vous ne recherchez pas la 
compatibilité totale avec les 
versions passées et à venir du 
6502, vous pouvez utiliser ces 
pseudo-NOPs comme temporisa- 
teurs (par exemple dans une 
routine de ‘timing’ pour l'écriture 
d'octets sur une disquette). 


Et voilà ! Nous avons fait le tour 
des principales différences du 
65C02 par rapport au 6502. 
Notons qu'il y en a d'autres de 
moindre importance, comme la 
gestion du mode décimal et 
certains protocoles ‘hardware’. 


La ROM vidéo 


Plusieurs modifications ont été 
apportées. Tout d'abord, vous 
avez maintenant à votre disposi- 
tion 32 caractères graphiques, qui 
sont décrits à la page 4 du manuel 
du kit. L'envoi d'un 


CHR$ (27) 

commute (à condition évidem- 
ment que la carte 80 colonnes soit 
active, ou encore que le jeu de 
caractères alternés soit commuté 
par une écriture à l'adresse 
$CO0F) ces caractères à la place 
des majuscules inversées (codes 
$40 à $5F), d'où les signes 
étranges qui parasitent la ligne 
d'état de votre traitement de texte 
favori, ou le curseur du tableur si 
indispensable à votre travail. 
Pour obtenir ces caractères, 
essayez le petit programme 
suivant : 


10 PRINT CHR$(4)"PR#3" 

20 PRINT CHR$ (27): INVERSE: 
REM Commute l'affichage 
des icones 





30 FOR I = 64 TO 95: PRINT 
I;* = ";CHRS (I), 

40 NEXT: PRINT: NORMAL 

50 PRINT CHRS$ (24): REM 
Revient au mode 
d'affichage normal. 


Joli, n'est-ce pas ? Mais il y a 
deux problèmes qui se posent : 
impérativement, dans un pro- 
gramme machine ayant ses 
propres routines d'affichage, les 
majuscules inverses doivent 
utiliser les codes écran $00 à 
$1F... De plus, la totalité des 
programmes de hardcopy d'écran 
texte risquent de donner des 
résultats bizarres avec un écran 
plein d'icônes... 





Les modifications ne s'arrêtent 
pas là. La commande ESC R a été 
supprimée (vous en comprendrez 


i - la raison plus loin), et on a 


implanté une nouvelle 
commande : ESC D (tapée AU 
CLAVIER) permet de filtrer les 
caractères de contrôle envoyés à 
l'écran, exceptés CTRL-G (bell), 
CTRL-H (backspace), CTRL-J 
(line feed), CTRL-M (carriage 
return, si, si !). C'est très utile 
par exemple lorsque l'on reçoit 
des codes hétéroclites via 
l'interface série, et que l'on veut 
éviter qu'il y ait le fouillis sur 
l'écran (passage de 80 en 40 
colonnes, passage en inverse, 
etc...). On revient au mode 
normal par ESC E. 


Également, pour ceux qui 
n'auraient pas remarqué, l'affi- 
chage en 80 colonnes a été 
notablement accéléré (30%), et le 
vilain ‘scrolling’ qui autrefois 
rendait une ligne de programme 
illisible du fait de son défilement 
en Zzig-zag est maintenant 
impeccable. 


De plus, sous Pascal UCSD, en 
envoyant un CTRL-F à l'écran, 






































on supprime l'affichage du 
curseur, ce qui permet d'accélérer 
l'affichage sous Pascal de 30 
autres % (il en a bien besoin !). 
CTRL-E fait revenir le 
sympathique rectangle sur votre 
moniteur. 


COUT1 ($FDFO) et KEYIN 
($FD1B), qui n'étaient pas 
compatibles avec le mode 80 
colonnes, le sont désormais. La 
routine SETVID ($FE93) 
déconnecte maintenant l'affichage 





Le moniteur 


Il accepte désormais TOUTES les 
commandes en minuscules com- 
me en majuscules. De nouvelles 
fonctions sont apparues : 


Entrée de codes ASCII 


Il est possible d'entrer des codes 
ASCII à la place d'un ou 
plusieurs octets en écrivant ('*) 
(où * est le caractère) à la place 
des deux chiffres hexadécimaux. 
Par exemple "400: 'B 'A C1 C2" 
fera apparaître "BABA" en haut 
de l'écran (s'il n'y a pas de 
‘scrolling’ bien sûr). 


Recherche d'un 
ou de deux octets 


Pour rechercher le nombre de 16 
bits LLHH entre les adresses 
"début" et ‘fin, on écrit 
“"HHLL<début.fin" (notez l'in- 
version de HH et de LL). Par 
exemple, "'K'O<801.40008S" 
recherchera "OK". Si on ne 
spécifie qu'un seul octet, ce sera 
cet octet et seulement lui qui sera 
recherché. Ainsi, "60<F800. 
FFFF" affichera l'adresse de tous 
les RTS de la ROM F8. 





Mini-assembleur 


Mais oui, vous ne rêvez pas ! Il 
est revenu. et c'est toujours le 
même depuis 10 ans. Autrement 
dit : il n'assemble pas, hélas, les 
codes mnémoniques 65C02. Tout 
comme la fonction ‘List’ du 
nouveau moniteur du //e ne 
désassemble pas les codes 
65C02... Apple a apporté de très 
intéressantes améliorations, mais 
aurait pu faire un effort de ce 
côté ! 


Bon, c'est tout de même mieux 
que rien. Les nouvelles 
instructions du 65C02 ne sont 
pas irremplaçables.. Pour entrer 
dans le mini-assembleur, vous 
tapez "!". Le prompt du moniteur 
(*) se change en (!). La syntaxe 
est la suivante: "HHLL:instr". Si, 
à la place de l'adresse 
d'assemblage HHLL, vous tapez 
un espace, le code sera implanté à 
la suite de la dernière instruction 
assemblée. Le résultat de 
l'assemblage est affiché 
immédiatement. Toute erreur est 
signalée par un son de cloche et 
un pointeur (*) indiquera la 
position de l'erreur. Exemple : 


Vous tapez : 


1300:PHA 
! LDA #'Z 
! JSR $SFDED 
! PLA 

! RTS 

Vous voyez : 


0300- 48 

0301- A9 DA 
0303- 20 ED FD 
0306- 68 

0307- 60 


PHA 
LDA #S$DA 
JSR $FDED 
PLA 
RTS 


Notez que l'on ne peut pas entrer 
des commandes du moniteur 
lorsque l'on est dans le 
mini-assembleur. 
On revient au moniteur en tapant 
<Return> à vide. 


Le Basic Applesoft 


Celui-ci accepte instructions et 
variables en minuscules, qui 
seront automatiquement conver- 
ties en majuscules. Saluons cette 





amélioration qui fait que, sous 
ProDOS, on peut entrer 
n'importe quelle commande 
SED, Basic, Moniteur) 
indifféremment en majuscules ou 
en minuscules. Finie la 
gymastique du “CAPS LOCK” ! 
Cela, ajouté à l'amélioration du 
clavier, apporte un grand confort 
d'utilisation. 


Mis à part cela, les routines 
“tabulantes” du Basic Applesoft 
fonctionnent maintenant parfaite- 
ment en 80 colonnes. Il s'agit de 
HTAB (on peut enfin écrire 
"HTAB 60" sans provoquer un 
résultat aléatoire !), TAB, SPC et 
la virgule de tabulation dans les 
PRINT. 


Remarquons qu'aucun effort n'a 
été fait pour rajouter des 
instructions, ou pour en enrichir 
d'autres (par exemple pour 
l'utilisation de la double 
résolution), et que les “bugs” 
célèbres sont même restés, tels 
celui de la virgule de tabulation 
(cela aurait requis le changement 
d'un seul octet), ou celui du 
GOTO/GOSUB 440xxx.. 


Pascal 


Outre les fonctions CTRL-F et 
CTRL-E décrites plus haut, et le 
rejet du code permettant de passer 
en 40 colonnes sur l'Apple Pascal 
1.1, la grande nouveauté est que 
la nouvelle ROM moniteur peut 
démarrer le Pascal depuis un 
autre périphérique qu'un DISK II 
dans le slot 6. Il est donc 
désormais possible de démarrer 
depuis un UNIDISK II, un 
PROFILE, etc. 


Nous avons fait le tour des 
spécificités de la nouvelle ROM 
qui, malgré de nombreuses 
lacunes, réprésente néanmoins un 
net progrès par rapport à 


l'ancienne. 


Pom's n° 24 










Philippe 
Krepper 


e petit jeu d'adresse 
peut tourner sur 
n'importe quel type 
d'Apple : il s'agit, avec 
un serpent, de ‘manger’ des 
pommes représentées par un petit 
carré sur l'écran. Suivant le 
nombre d'erreurs déjà commises, 
chaque prise rapporte de un à 


Si le serpent heurte le bord de 
l'écran, ou se touche lui-même, il 
commet une erreur. Au-delà de 
trois erreurs, il est disqualifié (et 
vous avec !). 


Pour déplacer le serpent, utilisez 
les flèches droite et gauche. 
Attention, il faut raisonner 
comme si vous vous trouviez à la 
place du serpent et donc le diriger 
en conséquence. 


Enfin, pour corser l'histoire, le 
serpent s'agrandit à chaque 
prise. 


Quelques notes : trois points. 


Le programme se sert de l'espace $800 à $BFF 
pour stocker une table d'adresses HGR qu'il crée 
lui-même. 


Le score du jeu est stocker sur la disquette en 


G 


Source ‘SNAKE.TXT 
Assembleur LISA 1.5 


piste $11, secteur $0, octet 4 et 5, emplacement 1 ORG 
inutilisé (cf. manuel DOS). 2 LGSNAK EPZ 
3 SENS EPZ 

Pour éviter les problèmes avec d'autres 4 VISUAL EPZ 
programmes qui utiliseraient cette adresse, laissez à. OR 
ce jeu seul sur sa disquette. rire 
7 DELAI EPZ 

8 SCORE EPZ 

9 HTAB  EPZ 

: 10 LIGNE EPZ 

Comment faire ? à dde 
12 TEMPO EPZ 

Vous disposez de la disquette d'accompagnement, faites 13 TEMP1 EPZ 
simplement ‘BRUN SNAKE'. 14 TEMP2 EPZ 
15 TEMP3 EPZ 

Vous ne disposez pas de cette disquette, alors vous 16 TEMP4 EPZ 
devrez : 17 RECORD EPZ 

1 Saisir et sauvegarder SNAKE.OBJ. ne  . ms 
(C'est le programme objet créé par le source 20 HGRHAU EQU 
SNAKE.TXT). 21 MASQUE EQU 

2 Saisir et sauvegarder SNAKE.MASQUE. 22 XD7 EQU 
Il s'agit de la représentation mémoire d'un écran texte. 23 VOLUME EQU 
Bien sûr on ne peut le saisir directement à l'adresse 24 PISTE EQU 
$400, vous le saisirez à partir de l'adresse $1000. RENNES ER 
26 CMD  EQU 

3 Saisir et sauvegarder SNAKE.FUSION. 27 BUFFER EQU 
Ce programme charge SNAKE.OBJ, 28 TOUCHE EQU 
SNAKE.MASQUE dans la mémoire écran et sauvegarde 29 RAZKBD EQU 

le tout sous la forme d'un fichier exécutable nommé 30 SPEAKR EQU 
SNAKE 31 GRAPHI EQU 

4 Pour toutes les utilisation ultérieures, il suffira de taper nine: 
33 NONMXT EQU 

‘BRUN SNAKE' 34 MIXTE EQU 

35  HAURES EQU 


Pom's n° 24 


$Co0 36 LINPRT EQU $ED24 
$6 37 HGR EQU $F3E2 
$7 38 HPOSN EQU $F411 
$8 39 CLOCHE EQU $FBE4 
$9 40 PAUSE EQU S$SFCA8 
SA 41 CHROUT EQU SFDED 
$B 42 ; INITIALISATION 
$18 43 JSR HGR 

$24 44 LDA TEXTE 
$26 45 LDA #$15 
$CE 46 STA HTAB+1 
$DO 47 JSR $FC22 
$D1 48 LDA NONMXT 
$D2 49 LDY #0 

$D3 50 STY VISUAL 
SD4 51 STY TEMPO 
$D6 52 STY COLOR 
$3D9 53 $ 

$800 54 LDA #1 

$900 55 STA CMD 
$AO0O 56 LDA #0 
$BOO 57 STA SECTEU 
$B7EB 58 STA VOLUME 
$B7EC 59 LDA #$11 
$B7ED 60 STA PISTE 
$B7F4 61 LDA #SECTOR 
$B7F0 62 STA BUFFER 
$CO00 63 LDA /SECTOR 
$C010 64 STA BUFFER+1 
$C030 65 LDA #$B7 
$C050 66 LDY #$E8 
$CO51 67 JSR JPRWTS 
$CO52 68 BCC NOTERR 
$C053 69 JMP $3D0 
$CO57 70 NOTERR LDA SECTOR+$4 
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71 STA RECORD 132 LDY TEMP3 196 SENS4 DEC TEMP3 261 BIP7 TXA 


72 LDA SECTOR+$SS5 133 LDX #$2F 197 JMP TSTPOM 262 TAY 
73 STA RECORD+1 134 JSR CARRE 198 SENS3 INC TEMP4 263 BIP8  LDA SPEAKR 
74 }; 135 INC TEMP3 199 JMP TSTPOM 264 DEY 
75 LDA #RESET 136 BNE CADRE1 200 SENS2 INC TEMP3 265 BNE BIP8 
76 STA $3F2 137 VRTCAL LDA #$2E 201 JMP TSTPOM 266 TXA 
77 LDA /RESET 138 STA TEMP3 202 SENS1 DEC TEMP4 267 TAY 
78 STA $3F3 139 CADRE2 LDX TEMP3 203 TSTPOM LDX TEMP3 268 BIP9  DEY 
79 EOR #$A5 140 LDY #0 204 LDY TEMP4 269 BNE BIP9 
80 STA $3F4 141 JSR CARRE 205 CPX POMMEL 270 LDY #$20 
81 ;CREATION TABLE 142 LDX TEMP3 206 BNE TSTVID 271 BIPI0 LDA SPEAKR 
MASQUE ET XD7 143 LDY #$3F 207 CPY POMMEC 272 DEY 
82 INITI LDX TEMPO 144 JSR CARRE 208 BNE TSTVID 273 BNE BIP10 
83 LDA #0 145 DEC TEMP3 209 MANGE INC LGSNAK 274 LDY #$20 
84 TAY 146 BNE CADRE2 210 JSR ALLONGE 275 BIP11 DEY 
85 JSR HPOSN 147 ; 211 JSR PLACE 276 BNE BIP11 
86 LDX TEMPO 148 DEBUT LDA #2 212 DEC DELAI 277 INX 
87 LDA $ES5 149 ;LONGUEUR DU SNAKE 213 LDA #$15 278 BNE BIP7 
88 STA XD7,X 150 STA LGSNAK 214 STA HTAB 279 JSR KPRESS 
89 LDA $30 | 151 STA TEMP3 215 CLC 280 BMI FINTST+3 
90 STA MASQUE,X 152 BCLO1 LDX TEMP3 216 LDA SCORE 281 ;FIN D'UNE PARTIE 
91 DEC TEMPO 153 LDA #$10 217 ADC SNAKES 282 FIN LDY #$40 
92 BNE INITI 154 STA SNAKEC,X 218 STA SCORE 283 BIP13 STY TEMP3 
93 ;CREATION TABLE 155 LDA TEMP3 219 BCC LDXSCO 284 BIP14 TYA 
HGRBAS ET HGRHAU 156 STA SNAKEL,X 220 INC SCORE+1 285 TAX 
94 INIT2 LDA TEMPO 157 TAX 221 LDXSCO LDX SCORE 286 BIP15 LDA SPEAKR 
95 CMP #$CO 158 LDY #$10 222 LDA SCORE+1 287 DEX 
96 BCS SUITE 159 JSR CARRE 223 JSR LINPRT 288 BNE BIP15 
97 LDY #0 160 DEC TEMP3 224 LDY #0 289 LDX TEMP3 
98 JSR HPOSN 161 BNE BCLO1 225 BIP1 TYA 290 BIP16 DEX 
99 LDY TEMPO 162 JSR PLACE 226 TAX 291 BNE BIP16 
100 LDA LIGNE 163 LDA #3 227 BIP2  LDA SPEAKR 292 DEC TEMP3 
101 STA HGRBAS,Y 164 STA SNAKES 228 DEX 293 BNE BIP14 
102 LDA LIGNE+1 165 LDX #0 229 BNE BIP2 294 DEY 
103 STA HGRHAU,Y 166 STX HTAB 230 LDX #$30 295 BNE BIP13 
104 INC TEMPO 167 STX DELAI 231 BIP3  DEX 296 LDA SCORE+1 
105 BNE INIT2 168 STX SCORE 232 BNE BIP3 297 CMP RECORD+1 
106 ;RAZ DU TABLEAU 169 STX SCORE+1 233 INY 298 BCC PAS.> 
ECRAN 170 INX 234 CPY #$80 299 BNE SCORE> 
107 SUITE LDA #0 171 STX SENS 235 BNE BIP1 300 LDA SCORE 
108 STA TEMP3 272 JSR KPRESS 236 BIP4  LDX #$10 301 CMP RECORD 
109 STA TEMP4 173 LDA GRAPHI 237 BIP5  LDA SPEAKR 302 BCC PAS.> 
110 INIT3 LDX TEMP3 174 LDY #$23 238 DEX 303 SCORE> LDA #$24 
121 CPX #$30 175 MESS  LDA MESSAG,Y 239 BNE BIPS5 304 STA HATAB 
112 BCS NEXT 176 JSR CHROUT 240 TYA 305 LDX SCORE 
113 LDY TEMP4 177 DEY 241 TAX 306 STX RECORD 
114 JSR CARRE 178 BPL MESS 242 BIP6  DEX 307 LDA SCORE+1 
115 INC TEMP3 179 LDA #$24 243 BNE BIP6 308 STA RECORD+1 
116 BNE INIT3 180 STA HTAB 244 DEY 309 JSR LINPRT 
117 NEXT  LDA #0 181 LDX RECORD 245 BNE BIP4 310 LDX #3 
118 STA TEMP3 182 LDA RECORD+1 246 JMP FINTST+3 311 BIP12 LDA #$80 
119 INC TEMP4 183 JSR LINPRT 247 TSTVID JSR CLCADR 312 JSR PAUSE 
120 LDA TEMP4 184 ;BOUCLE D'UNE 248 LDA (TEMPO), Y 313 LDY #$FF 
121 CMP #$40 PARTIE 249 BNE CRASH 314 JSR CLOCHE 
122 BCC INIT3 185 JEU LDX SNAKEL+1 250 UMP FINTST 315 DEX 
123 ;TRACÉ DU CADRE DE 186 STX TEMP3 251 ; PLANTE 316 BPL BIP12 
L'ECRAN 187 LDY SNAKEC+1 252 CRASH DEC SNAKES 317 PAS.> LDA TEXTE 
124 LDA #0 188 STY TEMP4 253 LDA SNAKES 318 INC COLOR 
125 STA TEMP3 189 LDY SENS 254 ADC #7 319 LDX POMMEL 
126 DEC COLOR 190 DEY 255 STA HTAB 320 LDY POMMEC 
127 CADREL LDY TEMP3 191 BEQ SENS1 256 LDA #"" 321 JSR CARRE 
128 CPY #$40 192 DEY 257 JSR CHROUT 322 LDY LGSNAK 
129 BCS VRTCAL 193 BEQ SENS2 258 LDA SNAKES 323 STY TEMP3 
130 LDX #0 194 DEY 259 BEQ FIN 324 EFFACE LDY TEMP3 
131 JSR CARRE 195 BEQ SENS3 260 LDX #0 325 LDA SNAKEL, Y 
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326 TAX 380 ALLONG LDY LGSNAK 429 ASL TEMPO 481 INY 
327 LDA SNAKEC,Y 381 BCLO3 LDA SNAKEL-1,Y 430 ROL TEMP1 482 CPY #5 
328 TAY 382 STA SNAKEL,Y 431 ASL TEMPO 483 BCC STKSNS 
329 JSR CARRE 383 LDA SNAKEC-1,Y 432 ROL TEMP1 484 DEY 
330 DEC TEMP3 384 STA SNAKEC,Y 433 ASL TEMPO 485 DEY 
331 BNE EFFACE 385 DEY 434 ROL TEMP1 486 DEY 
332 DEC COLOR 386 BNE BCL0O3 435 ASL TEMPO 487 DEY 
333 JMP DEBUT 387 LDX TEMP3 436 ROL TEMP1 488 STKSNS STY SENS 
334 >; 388 STX SNAKEL+1 437 ASL TEMPO 489 RTS 

N 335 FINTST JSR DECALE 389 LDY TEMP4 438 ROL TEMP1 490 GAUCHE LDY SENS 
336 LDA DELAT 390 STY SNAKEC+1 439 LDA #ECRAN 491 DEY 
337 STA TEMP3 391 JSR CARRE 440 ADC TEMPO 492 BNE STKSNS 
338 BCL04 JSR LITSNS 392 RTS 441 STA TEMPO 493 INY 

| 339 JSR LITSNS 393 ;AFFICHE/EFFACE UN 442 LDA /ECRAN 494 INY 
340 JSR LITSNS CARRE EN LIGNE X 443 ADC TEMP1 495 INY 
341 JSR LITSNS COLONE Y. 444 STA TEMP1 496 INY 
342 JSR LITSNS 394 CARRE JSR CLCADR 445 RTS 497 BNE STKSNS 
343 JSR LITSNS 395 LDA COLOR 446 ;BIP...BIP... 498 ;ALLUME/ETEIND UN 
344 UJSR LITSNS 396 STA (TEMPO),Y 447 KPRESS LDA RAZKBD POINT LIGNE Y 
345 UJSR LITSNS 397 TXA 448 REPEAT BIT TOUCHE COLONE X 
346 JSR LITSNS 398 ASL 449 BMI RETOUR 499 PLOT LDA HGRBAS,Y 
347 DEC TEMP3 399 ASL 450 LDY #9 500 STA LIGNE 
348 BNE BCLO4 400 STA TEMPO 451 JSR CLOCHE 501 LDA HGRHAU, Y 
349 JMP JEU 401 TYA 452 LDA #0 502 STA LIGNE+1 
350 ;PLACE UNE POMME 402 ASL 453 JSR PAUSE 503 PLOTML LDA XD7,X 
351 PLACE ADC $C060 403 ASL 454 JSR PAUSE 504 TAY 
352 ADC $CO00,X 404 STA TEMP1 455 BEQ REPEAT 505 HEX A9 
353 TAX 405 LDA #4 456 ;BASCULE DE 506 COLOR HEX 00 
354 CPX #3 406 STA TEMP2 L'AFFICHAGE DU 507 EOR (LIGNE) ,Y 
355 BCC PLACE 407 CARREI LDY TEMPO SCORE SI ESC 508 AND MASQUE, X 
356 CPX #$2D 408 LDX TEMP1 457 LITSNS BIT TOUCHE 509 EOR (LIGNE),Y 
357 BCS PLACE 409 JSR PLOT 458 BPL RETOUR 510 STA (LIGNE), Y 
358 ADC $C060 410 INX 459 LDA TOUCHE 511 RTS 
359 ADC $D00,Y 411 LDY TEMPO 460 BIT RAZKBD 512 RESET LDA #2 
360 TAY 412 JSR PLOTML 461 CMP #$88 513 STA CMD 
361 CPX #3 413 INX 462 BEQ DROITE 514 LDA RECORD 
362 BCC PLACE 414 LDY TEMPO 463 CMP #$95 515 STA SECTOR+$4 
363 CPY #$3D 415 JSR PLOTML 464 BEQ GAUCHE 516 LDA RECORD+1 
364 BCS PLACE 416 INX 465 CMP #$8D 517 STA SECTOR+SS5 
365 JSR CLCADR 417 LDY TEMPO 466 BEQ BASCUL 518 LDA #$B7 
366 LDA (TEMPO),Y 418 JSR PLOTML 467 CMP #$9B 519 LDY #$E8 
367 BNE PLACE 419 INC TEMPO 468 BNE RETOUR 520 JSR JPRWTS 
368 STX POMMEL 420 DEC TEMP2 469 STOP  JSR KPRESS 521 LDA #$6 
369 STY POMMEC 421 BNE CARRE1 470 BMI LITSNS 522 JMP $FE95 
370 BEQ CARRE 422 RTS 471  BASCUL LDA #$FF 523 MESSAG ASC ":DROCER 
371 >; DECALE LE SNAK 423 ;CALCUL L'ADRESSE 472 STA TOUCHE / :EROCS / 
372 DECALE LDY LGSNAK D'UNE LIGNE X 473 EOR VISUAL ààà: SEKANS" 
373 LDA SNAKEL, Y ET LA PLACE DANS 474 STA VISUAL 524 SNAKEL DFS $100 
374 TAX TEMPO , TEMP1 475 BEQ CACHE 525 SNAKEC DFS $100 
375 LDA SNAKEC,Y 424 CLCADR STX TEMPO 476 LDA MIXTE 526 SECTOR DFS $100 
376 TAY 425 LDA #0 477 RETOUR RTS 527 ECRAN END 
377 INC COLOR 426 STA TEMP1 478 CACHE LDA NONMXT 
378 JSR CARRE 427 ASL TEMPO 479 RTS 
379 DEC COLOR 428 ROL TEMP1 480 DROITE LDY SENS 





Programme ‘SNAKE.FUSION’ 


10 REM CHARGE SNAKE.OBJ ET SNAKE MASQUE DANS LA MEMOIRE ECRAN ET SAUVEGARDE LE TOUT SOUS LA 
FORME D'UN FICHIER EXECUTABLE NOMME SNAKE 

20 M$ "SNAKE .MASQUE" 

30 F$ = "SNAKE" 

40 POKE 973,76: POKE 974,00: POKE 975,12 

50 D$ = CHR$ (4): PRINT D$"BLOAD "MS'",A$400": PRINT D$"BLOAD SNAKE.OBJ" : 
",4973,1L3111" 


PRINT D$"BSAVE "F$ 
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Fichier ‘SNAKE.MASQUE’ 


Après avoir saisi ce code sous moniteur, vous le sauvegarderez par BSAVE SNAKE.MASQUE,AS$1000,L$400 


1000- AD AD AD AD AD AD AD AD 1100- AD AD AD AD AD AD AD AD 1200- A0 AC A0 A0 A0 A0 A0 A0 1300- A0 A0 A0 A0 A0 AO A0 A0 
1008- AD AD AD AD AD AD AD AD 1108- AD AD AD AD AD AD AD AD 1208- A0 AO AO A0 A0 AC A0 A0 1308- A0 A0 A0 A0 A0 A0 A0 A0 
1010- AD AD AD AD AD AD AD AD 1110- AD AD AD AD AD AD AD AD 1210- A0 A0 A0 A0 A0 A0 A0 A0 \ 1310- A0 A0 A0 A0 A0 A0 A0 A0 
1018- AD AD AD AD AD AD AD AD  1118- AD AD AD AD AD AD AD AD 1218- A0 A0 A0 A0 AO A0 CB D2  1318- AO A0 A0 A0 A0 AO A0 A0 
1020- AD AD AD AD AD AD AD AD 1120- AD AD AD AD AD AD AD AD 1220- C5 DO DO C5 D2 A0 DO C8  1320- AO A0 A0 A0 A0 AO A0 AO 
1028- A0 A0 A0 A0 AO AO A0 A0 1128- A0 A0 AD AD AD AD AD AD 1228- A0 A0 A0 A0 A0 A0 AO A0 1328- A0 A0 A0 A0 A0 A0 A0 A0 
1030- A0 A0 A0 A0 A0 A0 A0 A0 1130- AD A0 A0 A0 A0 3C 2D A0 1230- A0 A0 A0 A0 05 13 03 A0 1330- A0 12 05 14 15 12 0E A0 
1038- A0 A0 A0 A0 AO AO A0 A0 1138- D4 CF D5 D2 CE C5 A0 C1 1238- DO C1 D5 D3 C5 AE A0 A0 1338- CF CE AF CF C6 C6 A0 C1 
1040- A0 A0 A0 A0 A0 A0 AO A0 1140- A0 C7 C1 D5 C3 C8 C5 AE 1240- AO AO A0 A0 A0 A0 AO A0 1340- C6 C6 C9 C3 C8 C1 C7 C5 
1048- A0 A0 A0 A0 A0 AO AO A0  1148- AO A0 AO A0 A0 AO A0 A0  1248- AO A0 A0 A0 A0 A0 A0 A0  1348- A0 AO AO AO A0 AO A0 A0 
1050- A0 A0 A0 A0 A0 A0 A0 A0 1150- A0 C1 DO DO D5 D9 C5 DA 1250- AD AD AD AD AD AD AD AD 1350- AD AD AD AD AD AD AD AD 
1058- A0 A0 A0 A0 AO AO A0 A0 1158- A0 D3 D5 D2 A0 D5 CE 85 1258- AD AD AD AD AD AD AD AD 1358- AD AD AD AD AD AD AD AD 
1060- A0 A0 A0 A0 A0 AO AO A0 1160- A0 D4 CF D5 C3 C8 C5 A0 1260- AD AD AD AD AD AD AD AD 1360- AD AD AD AD AD AD AD AD 
1068- A0 A0 A0 A0 A0 A0 A0 A0 1168- A0 DO CF D5 D2 A0 C3 CF 1268- AD AD AD AD AD AD AD AD 1368- AD AD AD AD AD AD AD AD 
1070- A0 A0 A0 A0 A0 A0 A0 A0 1170- CD CD C5 CE C3 C5 D2 A0 1270- AD AD AD AD AD AD AD AD 1370- AD AD AD AD AD AD AD AD 
1078- 13 A0 A0 A0 A0 A0 26 A0 1178- 26 27 27 27 27 27 27 27 1278- 60 27 27 27 27 27 27 27 1378- 27 27 27 27 27 27 27 27 
1080- 20 20 20 20 20 20 20 20 1180- A0 A0 A0 A0 A0 A0 A0 A0 1280- AO A0 A0 A0 A0 A0 A0 A0 1380- A0 A0 A0 A0 A0 A0 A0 A0 
1088- 20 20 20 2A 2A 2A 20 13 1188- A0 A0 A0 A0 A0 A0 A0 A0 1288- AO A0 A0 A0 A0 A0 A0 A0 1388- A0 A0 A0 A0 A0 A0 A0 A0 
1090- 20 0E 20 01 20 OB 20 05 1190- A0 A0 AO A0 A0 A0 A0 A0 1290- A0 A0 A0 A0 A0 A0 A0 A0 1390- A0 A0 A0 A0 A0 A0 A0 A0 
1098- 20 2A 2A 2A 20 20 20 20 1198- A0 A0 A0 A0 A0 A0 A0 A0 1298- A0 A0 A0 A0 A0 A0 CA DS 1398- A0 A0 A0 A0 AO A0 A0 A0 
10A0- 20 20 20 20 20 20 20 20 11A0- A0 A0 A0 A0 A0 A0 A0 A0 12A0- C9 CC CC C5 D4 A0 B8 B5 13A0- A0 A0 A0 A0 A0 A0 A0 A0 
10A8- AO A0 D4 CF D5 C3 C8 C5 11A8- AO A0 A0 A0 A0 AO A0 A0 12A8- A0 A0 A0 A0 A0 A0 A0 A0 13A8- A0 A0 A0 A0 A0 A0 A0 A0 
10B0- D3 BA A0 A0 A0 2D 3E A0 11B0- A0 A0 A0 AC A0 A0 A0 A0 12B0- A0 A0 A0 A0 A0 A0 A0 A0 13B0- A0 A0 A0 A0 A0 A0 A0 A0 
10B8- D4 CF D5 D2 CE C5 A0 C1 11B8- A0 A0 A0 A0 A0 A0 A0 A0 12B8- A0 A0 A0 A0 A0 AC A0 A0 13B8- C4 D5 A0 D3 C3 CF D2 C5 


10C0- A0 C4 D2 CF C9 D4 C5 AE 11C0- A0 A0 A0 A0 AO A0 A0 A0  12C0- A0 A0 A0 A0 A0 A0 A0 A0  13C0- AE A0 A0 A0 A0 A0 A0 A0 
10C8- AO AO AO A0 AO AO AO A0 11C8- A0 AO A0 A0 A0 A0 A0 A0 12C8- AO AO A0 A0 A0 A0 A0 A0  13C8- A0 AO AO AO A0 A0 A0 
10D0- A0 AO A0 AO A0 AO A0 AO 11D0- A0 AO AO A0 A0 A0 A0 A0  12D0- A0 AO A0 A0 A0 A0 A0 A0  13D0- A0 A0 AO A0 AO AO A0 A0 
10D8- A0 A0 AO A0 A0 AO A0 AO 11D8- AO A0 A0 A0 A0 AO A0 A0  12D8- AO A0 A0 A0 A0 AO AO A0 13D8- A0 A0 AO A0 A0 AO A0 AO 
10E0- A0 A0 AO AO A0 AO A0 A0 11E0- A0 A0 A0 A0 A0 AO A0 A0  12E0- AO A0 A0 A0 A0 A0 A0 A0 13E0- A0 A0 AO A0 A0 A0 A0 A0 
10E8- A0 A0 A0 AO A0 A0 AO A0 11E8- A0 A0 A0 A0 A0 A0 A0 A0  12E8- A0 A0 A0 A0 A0 A0 A0 A0 13E8- A0 A0 A0 A0 A0 A0 A0 A0 
10F0- A0 AO A0 A0 A0 A0 A0 A0 11F0- A0 A0 A0 A0 A0 A0 AO A0 12F0- A0 A0 A0 A0 A0 AO A0 A0  13F0- A0 A0 A0 A0 A0 A0 A0 A0 
10F8- 04 FF FF FF FF FF 36 FF 11F8- 60 FF FF FF FF FF FF FF  12F8- 02 FF FF FF FF FF FF FF  13F8- C1 FF FF FF FF FF FF 00 


> 
ss 





Récapitulation ‘SNAKE.OBJ’ 
Après avoir saisi ce code sous moniteur, vous le sauvegarderez par BSAVE SNAKE.OBJ,A$CO0,L$3F4 


0C00- 20 E2 F3 AD 51 CO A9 15 0D00- A9 03 85 CE A2 00 86 24  0E00- D7 90 26 DO 06 A5 18 C5 0F00- E8 A4 DO 20 A5 OF E6 DO 
0C08- 85 25 20 22 FC AD 52 C0 0D08- 86 0B 86 18 86 19 E8 86 0E08- D6 90 1E A9 24 85 24 A6 0F08- C6 D2 DO El 60 86 DO A9 
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Apple serait-il donc devenu un 
constructeur de micro-ordinateurs 
comme les autres ? Il semble en 
tous cas bien loin le temps où 
Steve Jobs annonçait une 
nouvelle race de micro- 
ordinateurs «for the rest of us». 
Andy Hertzfeld, un des dévelop- 
peurs du Macintosh et le père du 
numériseur Thunderscan, l'expri- 
mait récemment ainsi : «Du temps 
de Jobs, la mission d'Apple était 
de rendre les ordinateurs 
accessibles, maintenant, c'est de 
protéger ses actionnaires». 
Aujourd'hui, les fabricants des 
ordinateurs à la pomme emploient 
les mêmes procédés (discutables) 

ue tous les autres constructeurs. 

n commençant par annoncer des 
produits indisponibles. Annoncée 
en janvier, la transformation des 
Macintosh en Macintosh Plus 
n'avait, en mai, été réalisée que 
pour une toute petite minorité 
d'heureux veinards. Chez les 
concessionnaires, lorsqu'on 
abordait le sujet, les mines 
s'allongeaient... presque autant 
que les listes d'attente. Les 
délais ? Juillet, août ? Certes, le 
Macintosh est un succès et il faut 
s'en réjouir il est vrai, qu'il est 
plus rentable pour Apple de 
vendre des Macintosh Plus 
entiers que des “kits” de mise à 
niveau. Il n'empêche : les 
candidats à la transformation l'ont 
trouvé plutôt saumâtre. Au 
moins, ont-ils été ainsi épargnés 
par les problèmes de compatibilité 
qui ont affecté les possesseurs de 
Macintosh Plus. A cause d'abord 
d'un vilain “bug” dans le 
Système (version En). Apple a 
du, en toute hâte, livrer une 
nouvelle version (la 3.1.1). En 
raison, ensuite, du fonction- 
nement même du nouveau 
système de hiérarchisation des 
fichiers. Les gourous d'Apple 
avaient pourtant juré urbi et orbi 
leurs dieux que tous les 
logiciels “bien élevés” devaient 
fonctionner sans bavures sur le 
Macintosh Plus. Las ! Il n'en est 
apparemment rien. Pom's a 
relevé, dans ce numéro, de 
nombreux exemples, voici donc 
juste quelques conseils supplé- 
mentaires : 


- aux utilisateurs d'Excel : 
garder tous les documents liés 
dans le même dossier, pour 
que les mises à jour se fassent 
bien automatiquement ; 

- aux utilisateurs de MacDraw : 
ne vous étonnez pas de ne 
pouvoir afficher plus de 11 
polices de caractères. Pas 
question de faire défiler ce 
menu ; 


- aux utilisateurs du Switcher :. 


ajouter 20Ko par application et 
placez les toutes dans le même 
dossier. 


Problèmes de jeunesse, certes, 
mais qui pourraient bien dégoûter 
à jamais ceux qui ont commencé 
leur parcours micro-informatique 


sur le Macintosh Plus. Dernier 
exemple du peu de cas que 
semble faire Apple de ses clients : 





l'affaire du nouveau Macintosh 
512Ko. Ce dernier bébé de la 
gamme Macintosh est simplement 
un. Mac de 512Ko doté d'un 
lecteur interne de disquettes 
double face (800Ko contre 400 
our l'ancien) et de la nouvelle 
OM de 128Ko. Par rapport au 
Macintosh Plus, il lui manque 
donc la mémoire de 1 Méga et 
l'interface SCSI pour disque dur. 
Aux États-Unis, il a été annoncé 
au prix de 1995 dollars. Une 
bonne occasion, au cours du 
dollar, pour permettre aux moins 
riches de s'équiper d'un Mac à 
15 000,00 F ? Eh bien non, 
Apple France n'entend pas le 
vendre moins de 20 000,00 F. 
Cette fois c'est pour préserver les 
marges des revendeurs. Question 
au PDG d'Apple : et le client 
alors ? Pourquoi ne pas refaire le 
même bon geste effectué en 
tarifant avantageusement chez 
nous les mises à niveau du Mac 
en Macintosh Plus ? 
Moyennant quoi, tout va très bien 
pour Apple. Bien qu'elle ait 
diminué son chiffre d'affaires, la 
firme a augmenté aux Etats Unis 
son bénéfice de 218%. La revue 
Infoworld, qui fait autorité dans 
le monde de la micro a salué 
l'arrivée du Macintosh Plus en le 
dotant d'une note de 7,7, en le 
“recommandant hautement”, et en 
estimant qu'Apple pouvait 
désormais attaquer de pied ferme 
le marché de l'entreprise. 
On continue à Cupertino la mise 
au point du SuperMac, extensible 
(nom de code Milwaukee, 
première sortie, peut être en 
septembre), du nouvel Apple // et 
de leurs périphériques communs 
(le nouvel Apple // se verrait ainsi 
doté lui aussi d'une interface 
SCSI). Du côté du monde 
extérieur, Macintosh devrait très 
bientôt pouvoir fonctionner sous 
Unix, et on reparle aux 
tats-Unis d'une utilisation du 
MS Dos qui ne passerait 
l'intermédiaire d'un “Mac ie” 
(cette extension géniale transfor- 
mant le Mac en un vulgaire 
compatible IBM). 
Voilà pour l'avenir. Le présent se 
conjugue pour le Macintosh grâce 
à de nouveaux programmes. 
Apple sait que le développement 
du logiciel sera désormais capital 
et a décidé d'en confier la 
responsabilité à Del Yocam, son 
directeur général. Trois axes, ce 
mois-ci, pour les logiciels 
nouveaux : la boulimie avec le 
Servant, la communication et 
l'édition électronique. 


Boulimique 


C'est The Servant (le 
serviteur), un domestique doré 
sur tranches développé par Andy 
Hertzfeld ; après son génial nu- 
mériseur d'images Thunderscan, 
il récidive avec ce nouveau 
logiciel “intégrateur”, qui permet 
d'utiliser simultanément plusieurs 
logiciels et de repasser de l'un à 
l'autre. Ça vous rappelle quelque 
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chose ? Et oui, The Servant 
ressemble à un Switcher mâtiné 
de Finder. Avec quelques détails 
qui comptent : ce logiciel (reservé 
au Macintosh Plus) utilise une 
mémoire cache de 700Ko. Il 
permet d'utiliser comme fond du 
bureau des images numérisées, 
ou n'importe quel document 
MacPaint. Quand on ouvre un 
programme, le bureau ne 
disparaît pas : l'application 
s'ouvre simplement dans une 
fenêtre. On peut garder quatre 
fenêtres ouvertes simultanément. 


The Servant permet de lancer des 
tâches de fond, c'est-à-dire de 
laisser l'ordinateur s'occuper en 
arrière plan d'imprimer, ou de 
recevoir un fichier par modem, 
tout en conservant la possibilité 
de travailler. The Servant est 
encore un prototype qui devrait 
être lancé aux États-Unis en 
septembre. 


Communication 


Échanger des données entre un 
Mac et un IBM ? Facile avec 
MacLink de Dataviz. Ce 
logiciel comprend deux 
disquettes : l'une pour le Mac et 
l'autre pour l18M (avec au 
moins 192Ko et deux lecteurs) 
ainsi qu'un câble. On relie les 
deux machines par les sorties 
séries (ou un modem). Là où les 
choses se corsent, c'est quand ce 
logiciel permet de traduire les 
fichiers pour qu'ils soient 
utilisables sur l'une ou l'autre 
machine. Ainsi, un document 
écrit avec Macwrite peut être 
converti au format de 
Displaywrite Wordstar ou 
Muitimate, et être traité sur 
l'IBM. Bien évidemment, 
l'inverse est également ible. 
On peut aussi récupérer une 
feuille de calculs construite avec 
Excel, Jazz ou Muitiplan et la 
retravailler avec Lotus 1-2-3, 
Symphony, etc. Prix (avec un 
câble) : 155 dollars. 


Pour les réseaux locaux, voici un 
logiciel transformant un 
Macintosh en serveur : 
MacServe d'Infosphere. Il 
s'utilise avec le réseau Appletalk 
et un disque dur Apple, ou un 
Hyperdrive. Un utilisateur du 
réseau peut aussi utiliser les bases 
de données multi-utilisateurs 
(comme Omnis 3 ou 4e 
Dimension), et se servir du 
disque dur comme “spooler”, 
pour imprimer sans immobiliser 
l'ordinateur. Prix : 250 dollars. 


Voici encore les réseaux Omninet 
(distribués en France par Access) 
sur lesquels on peut connecter 


simultanément des Macintosh et 
des IBM PC, (en tout 62 
micro-ordinateurs sur une 
distance de 1200 mètres) utilisant 
les disques durs Corvus 
Omnidrive. Possibilités, là aussi, 
de partager les mêmes 
ressources : fichiers, impriman- 
tes, disques durs. Une version 
Omnitalk permet d'utiliser les 
disques durs en multi-utilisateurs 
sur un réseau Appletalk. 


Édition 
électronique 


C'est vraiment la dernière folie à 
la mode : aux États-Unis, les 
entreprises succombent aux 
charmes de l'édition électronique. 
Certains utilisateurs commencent 
d'ailleurs aussi à en éprouver les 
déconvenues : défaut d'encrage 
notamment sur les imprimantes 
laser. Il s'agirait d'un problème 
dû aux cartouches de recharge 
fabriquées par le japonais Canon. 
En attendant qu'il soit réglé, un 
programmes permet de créer des 
polices de caractères pour l'impri- 
mante Laser, c'est Fonto- 
grapher d'Altsys, permettant 
de dessiner des polices, de les 
manipuler (rotations, ombrages, 
etc.). Un autre logiciel créé par 
Manhattan Graphics, l'éditeur 
de Ready Set Go, et baptisé 
Desk Design est tout 
simplement constitué de 
“templates”, c'est-à-dire de 
maquettes déja prêtes pour éditer 
une lettre d'information, une 
brochure... Bref, c'est du clés en 
mains (préformaté, avec 
caractères selectionnés) où il ne 
reste plus qu'à ajouter le texte. 
Prix : 70 dollars. BIP qui 
distribue en France Ready Set 

en réalisera t-il une VF ? 
Plusieurs revues se sont créées, 


outre-Atlantique, exclusivement 


vouées à l'édition électronique. 
Parmi elles : Publish, édité par 
le groupe publiant déjà la revue 
Macworld. On trouve même des 
leçons d'édition sur vidéo- 
cassettes (malheureusement illisi- 
bles à moins de disposer d'un 
magnétoscope tri-standard !). 


Des logiciels 
pour le Mac 


La décision d'Apple de ne pe 
livrer systématiquement Mac 
Write avec le Macintosh Plus, 
pour susciter la création de 
logiciels de traitement de texte, 
commence à porter ses fruits. 
Voici, en provenance de Grande 
Bretagne, MacAuthor, d'Icon 
Technology, un traitement de 
texte bourré d'idées ingénieuses 
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permettant notamment d'écrire en 
colonnes (comme un logiciel 
d'édition électronique) de 
préparer des feuilles de style 
(comme Word), auquel ses 


premiers utilisateurs ne 
reprochent qu'une lenteur 
sensible surtout sur le 512Ko. 


ALS se prépare à lancer Word 
Handler, un traitement de texte 
permettant notamment d'utiliser 
Does fenêtres, qui sera vendu 

0 dollars (et 30 à ceux qui 
renverraient leur disquette 
originale MacWrite avant juin). 
LM Software va vendre 
Macspec, traitement de texte 
destiné à ceux qui veulent établir 
des spécifications, des devis et 
des notices techniques (avec table 


. des matières automatique), SSI 


prépare une version pour le Mac 
de son traitement de texte 
WordPerfect, et Haba va 
vendre 100 dollars Haba Word, 
ui permet, comme MacAuthor 
l'écriture sur plusieurs colonnes, 
avec affichage à l'écran. 
Du côté de Microsoft, on met la 
dernière main à Works, un 
poe qui viendra bientôt 
aire la pige à Jazz 
télécommunications, base de 
données, tableurs, et surtout un 
traitement de texte qui fait déjà 
saliver avec notamment des 
possibilités graphiques (dessin, 
tracé de lignes, etc.) intégrées. Ce 
programme là devrait être 
ultra-rapide, car résidant en 
RAM 


Pour faire bonne impression, 
Silicon Press de Silicon 
Beach Software permet 
d'imprimer des étiquettes, des 
cartes en utilisant les données 
extraites de la plupart des 
fichiers. En couleurs avec la 
nouvelle Imagewriter IL 


Bases de données 


Pendant un temps, le Mac a été le 
roi de la base de données : une 
nouvelle chaque semaine, 
structure de ses fichiers oblige. Et 
les français avec 4ème 
dimension et MacBase n'ont 
pas été les derniers à donner. Les 
cadences se sont quelque peu 
ralenties chez nous mais, aux 
États-Unis, la gestion de fichier 
fait toujours florès. Avec le plus 
simple Record Holder de 
Software discoveries. Une 
petite gestion de fichier facile et 
rapide, permettant de disposer de 
champs de 32Ko, de calculer, 
avec sauvegarde automatique. Ce 
programme ne permet toutefois 
pas de stocker des images ou des 
dessins. Prix : 50 dollars. 
Pour le double de ce prix, 
MacRelax d'Haba est une base 
de données relationnelle puissante 
et agréable d'emploi. Enfin, 
Interlace de Singular 
Software est également, pour 
95 dollars, une base de données 
relationnelle, en même temps 
u'un générateur d'applications. 
y trace visuellement les liens 
entre les champs des fichiers, 





exactement comme dans 4ème 
dimension. Cette gestion de 
fichiers s'adresse surtout à ceux 
qui manipulent des chiffres et des 
calculs complexes. 


CAO et graphiques 


Le Macintosh accède aux 
possibilités des stations de 
conception Le: 2e à assistée par 
ordinateur. Avec E-Z Draft de 
Bridgeport. Ce logiciel permet 
de réaliser des projections avec 
vue isométrique ou orthogonale, 
de prélever et d'utiliser les 
dessins stockés sur des 
ordinateurs centraux, de créer des 
notices techniques, tout en 
utilisant toutes les possibilités du 
Macintosh et notamment en 
important des textes de Macwrite 
et des dessins de MacDraw. 
Prix : 2495 dollars. Seulement. 
Easy 3D d'Enabling 
Technologies, importé par 
Infotique est aussi un logiciel 
graphique permettant de “modeler 
des surfaces cachées” pour 
artistes, architectes, ingénieurs, 
etc. Aussi facile qu'un jeu de pâte 
à modeler électronique. Toutes 
les perspectives tridimension- 
nelles sont possibles, ainsi que 
les éclairages différents, etc. 
The Graphics Magician de 
Polarware avait permis aux 
PRE d'Apple // de s'initier 
l'animation, à la décomposition 
des mouvements et de créer des 
séquences animées. Le voici 
disponible pour le Macintosh 
utilisant toutes ses facilités. 


Utilitaires 


A noter une version 1.1 de 
SideKick, les accessoires de 
bureau de Borland, qui 
fonctionnent avec le Macintosh 
Plus. A remarquer encore une 
version de Copy II Plus 
capable elle aussi d'utiliser le 
Macintosh Plus et ses disquettes 
800K... 
Enfin, HD Util d FWB 
Software peut recopier sur un 
disque dur des programmes 
théoriquement protégés. Intercep- 
tant la routine demandant 
l'introduction de l'original, il 
ps de se passer de celui-ci. 
ix : 90 dollars. A remarquer, 
qu'il est nécessaire d'utiliser un 
"patch" particulier à chaque 
programme installé. 


Matériel 


Du “hard” pour le Mac. Avec 
d'abord des disques de Warp 
Nine. Un disque dur externe 
d'une . de 20 Méga-octets 
pour 795 dollars, un disque 
interne à la façon de 
l'Hyperdrive de 20 Mégas 
aussi pour 895 dollars. Et un 
lecteur de disquettes 800Ko pour 
239 dollars. 

Apple se prépare à sortir une 
version adaptée à l'interface SCSI 
de son disque dur au moment où 
ceux-ci commencent à baisser. En 
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France aussi où P-Ingénierie a 
baissé le prix des “Hyperdrive” 
(15400F HT pour le 10 Mégas et 
18900F pour le 20 Mégas). Le 
même P-Ingénierie importe Mac 
Palette de Pixel Software. 
Un ensemble composé d'un 
logiciel, d'un moniteur et d'une 
modification du Macintosh qui 
permet de transformer le Mac en 
station graphique professionnelle 
en couleur de haute qualité. 
(résolution de 768 x 576 pixels, 
256 couleurs simultanées dans un 
choix de 16 millions). Pour 
quelques 150 000 Francs (Mac 
compris), ce système permet 
d'obtenir sur l'écran, ou sur des 
films photos ou des transparents, 
des images couleurs de haute 
qualité. Dommage que son prix le 
réserve aux "Pros". 
À remarquer, aussi, un buffer 
pour imprimante, le MacBuffer 
d'Ergotron. On peut y installer 
de 256Ko à 1 méga de mémoire, 
et pouvoir ainsi utiliser le Mac 
pendant que l'imprimante 
imprime. À noter que ce buffer 
est parfaitement dessiné pour 
s'installer à côté de 
l'Imagewriter I, mais fonctionne 
aussi avec la nouvelle. Il permet 
accessoirement à deux Mac de se 

artager une imprimante. 

nfin, MacMemory dont les 
produits sont importés par 
CCAM a déjà étudié une 
augmentation de mémoire pour le 
Macplus. Il s'agit d'une barrette 
qui s'installe sur l'emplacement 
disponible dans le nouveau Mac 
et porte instantanément sa 
mémoire disponible à 2 Mégas. 


Et l'Apple // ? 


A l'exception d'une nouvelle 
version d'Appleworks (la 1.3) 
tirant parti du lecteur de 800Ko et 
des cartes d'augmentation de 
mémoire, les nouveautés portent 
surtout sur le matériel. 

Une société américaine ("The 
Engineering Department") a 
développé une carte reg au 
lle d'utiliser les logiciels de 
l'IBM. Pour 500 dollars, 
auxquels il faut ajouter un lecteur 
compatible avec le PC et un 
clavier type IBM. Dommage 
qu'avec la chute des prix des 
compatibles venus de Taiwan, 
l'ensemble revienne désormais 
quasiment au prix d'un “clone” 
complet. 

Video Technology a tenté de 
vendre aux Etats Unis son Laser 
128, une réplique de l'Apple //c 
nanti en prime d'un pavé 
numérique et d'une connection 
pour relier un supports de slots 
d'extension pour 395 dollars. Si 
les douanes américaines n'y ont 
rien trouvé à redire, Apple a 
prévenu que l'appareil relevait de 
la violation du copyright et 
demandé aux tribunaux d'en 
interdire la vente. 


Freeware 


Ce sont ces logiciels disponibles 


gratuitement ou moyennant une 
petite redevance, qui compren- 
nent d'utiles accessoires de 
bureau, des utilitaires, des jeux, 
etc. Aux Etats-Unis, on peut les 
télécharger facilement. En France 
la pratique commence à se 
répandre. Les abonnés de 
Calvados peuvent d'ores et 
déjà, à condition d'être muni d'un 
modem, d'un logiciel de 
télécommunications évolué 
(comme MacTel 2), et d'un 
utilitaire de conversion (comme 
Binhex) se procurer un éditeur de 
ressources comme Resedit, un 
installateur de touches de 
fonction, comme FK installer, 
etc. ! 

En Grande Bretagne, le serveur 
Mactel auquel on peut s'abonner 
moyennant une cotisation peu 
élevée de 10 Livres sterling, offre 
les mêmes services avec toute une 
foule de logiciels récents et 
intéressants (notamment la 
version 4.6 du Switcher, etc.). 
On peut se brancher en 1200/75 
bauds sur ce serveur en appelant 
le 602 817 69% à Nottingham (de 
France composer d'abord le 19 
puis le 44). Si les lecteurs de 
Pom's connaissent d'autres 
serveurs réservés au Mac, qu'ils 
nous en indiquent les 
coordonnées et celles ci seront 
publiées ici. 


Adresses 


Dataviz - 16 Winfield St, Norwalk 
CTO6855 

Infosphere - 4730S.W Macadam Av. 
Portland, Oregon 97201 

Access - 10, rue Ampère Prolongée 
Parc Technologique de Bois d'Arcy - 
78390 Bois d'Arcy 

Altsys - PO Box 865410 Plano TX 
75086 

Publish - PO Box 51966 Boulder 
Colorado 80321 

Silicon Beach Software - 9580 
Black Mountain Road Suite PO Box 
261430 San Diego CA92126 
Software discoveries + 99 
Crestwood Rd Tolland CT 06084 

Haba - 6711 Valjean Av. Van Nuys 
CA 91406 

Singular Software - 5888 Castano 
Drive San Jose CA 95129 

Bridgeport Machines - Bridgeport 
CT 


Infotique - 20 et 24, rue de l'Hôtel 
Dieu 95300 Pontoise - Tel.: 30 73 14 
15 

FWB Software - 2040 Polk St #215 
San Francisco, CA 94109 

Warp Nine - 3216 Humbolt Av. 
Minneapolis MN 55408 

P-Ingéniérie - 226 Bd Raspail 
75014 Paris - Tel. 43 21 93 36 
Ergotron PO - Box 17013 Mpls, 
MN 55417 

CCAM - 95, rue Lafayette - 75010 
Paris - Tel. : 47 80 22 23 

Calvados + BP 21-07 75327 Paris 
Cedex 07 

Mactel - 15 Elmtree av, West 
Bridgford, Nottingham NG2 7JV 


Grande Bretagne 
G 
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Alexandre Duback B ibliograph 1e 


Entreprendre et gérer sur 
Macintosh (modèles Multi- 
plan), de Bill Bono et Ben 
Kalkis — Cedic-Nathan — 303 
pages — 225 F - Traduction. 


Ces deux ouvrages regroupent 
des modèles de gestion prêts à 
utiliser. Le travail est bien fait et 
la maquette bien conçue ; le seul 
problème, comme pour tous les 
ouvrages du genre, est le 
suivant : les problèmes propres à 
une entreprise peuvent-ils 
facilement être adaptés à un 
tableau tout prêt, ou est-il plus 
rapide de construire son propre 
tableau en partant de rien ? Je 
penche pour la seconde option. 
De toute façon, il reste l'intérêt 
pédagogique des exemples. 


50 modèles Multiplan pour 
gérer sur Apple II et IBM 
PC, de Fabienne et Philippe 
Gysel — Editions du PSI — 196 
pages — 130 FF. 


Mêmes remarques que pour les 
deux ouvrages précédents. A 
noter cependant que certains des 
principes essentiels de la bonne 
programmation sur tableurs 
présentés dans les ouvrages de 
H. Thiriez ne sont pas appliqués : 


Les 19, 20, 21, et 22 juin 1986, Pom's sera à 


au Parc de la Villette (Grande Halle), porte de 


ainsi, la somme d'une série de 
valeurs n'est-elle jamais 
“englobée”, ce qui rend les 
formules nettement moins 
adaptables. L'englobage consiste 
à faire la somme depuis une 
cellule avant un bloc (si elle ne 
contient pas de valeur) jusqu'à 
une cellule après ce bloc (idem) 
au lieu de l'effectuer seulement 
entre les deux bornes : on peut 
ainsi insérer ou détruire à liberté 
dans le bloc sans remettre en 
cause la validité de la formule. 


Bases de données sur 
Macintosh, de Frédéric Joutel et 
Eric Tenin — Edimicro — 149 
pages — 88 FF. 

Faites le calcul : 9 “bases de 
données” en moins de 130 pages 
— introduction et conclusion 
exclues — cela fait moins de 15 
pages par programme, copies 
d'écran comprises. Certains 
logiciels sont présentés dans leur 
version US, alors que la version 
française existe. Il n'y a pas de 
tableau récapitulatif comparant les 
programmes en fonction d'un 
certain nombre de critères, pas 
d'analyse critique sérieuse, … 
Bof. 


Apple 
EkDo 


Pantin à Paris. 
Nous vous attendons au stand B-10. 


N'oubliez pas de présenter ce numéro de Pom's : 
vous entrerez à demi-tarif.… 
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Utiliser les bases de 
données avec dBase II et 
dBase III, de Claude Frasson 
— Editions d'Organisation — 250 
pages. 

Voici en revanche un livre bien 
fait, pédagogique, et avec de 
nombreux exemples de 
programmes. Un seul regret : le 
côté spartiate du maquettage, ce 
qui devient rare aujourd'hui, et la 
couverture à spirale de la 
collection qui, si elle facilite la 
lecture à plat sur une table, ne 
simplifie pas le rangement dans 
une bibliothèque. 


Utiliser  Wordstar, de 
Maureen A. Culleeney — Editions 
d'Organisation — 271 pages 
— Traduction. 

Mêmes remarques que ci-dessus 
en ce qui concerne le maquettage 
et la couverture. Heureusement, 
dans ce livre, de nombreux petits 
dessins et des tableaux encadrés 
rendent la lecture plus agréable. 
Un livre à conseiller pour un 
apprentissage approfondi de 


Wordstar 
G 


Un collaborateur de 
Pom's vend à l'état 
neuf (sous 
emballage), un 
lecteur 140Ko //c 
(2000,00 F), un 
moniteur //c 
(1300,00 F), un 
stand //c (250,00 F), 
une housse //c 
(375,00 F), un 
joystick //e-//c 
(375,00 F) et un 
manuel de référence 
Ile (250,00 F). Ecrire 
à la rédaction qui 
transmettra. 
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Courrier des Lecteurs 


J'aimerais poser quelques 
questions au sujet du compilateur 
TASC (compilateur Applesoft 
distribué par Microsoft) : 

+ comment est organisé le 
rangement des chaînes de 
caractères ? 

+ existe-t-il une routine de 
nettoyage mémoire rapide qui 
fonctionne avec TASC ? 

+ peut-on réécrire les chaînes de 
caractères au même emplacement 
mémoire si elles ont la même 
longueur et le même nom ? 


Dominique OTTELLO, 75017 
Paris 


Il est impossible de détailler ici le 
fonctionnement de TASC et en 
particulier du fichier RUNTIME 
utilisé pendant l'exécution d'un 
programme compilé. 
Schématiquement, on peut 
préciser les points suivants : 


+ La méthode de rangement des 
variables est comparable à celle 
de l'Applesoft : les chaînes de 
caractères sont stockées en 
descendant à partir de la valeur du 
HIMEM. 


+ Chaque utilisation de la même 
variable fait appel à une même 
routine, générée par le 
compilateur, qui permet de 
déterminer l'adresse du 
descripteur de la variable. Ce 
descripteur pointe lui-même vers 
la valeur courante de la variable 
précédée de sa longueur. 

Ainsi, par exemple, le 
programme : 


10 INPUT A$ : PRINT A$ 


après compilation, contient à 
partir de l'adresse $17B0, des 
instructions qui appellent, en des 
points d'entrée différents, une 
routine située en $17DC qui 
gèrent tous les accès à la variable 
A$ en précisant que son 
descripteur est en $17E6. 


Après une exécution où la valeur 
de A$ est une chaîne de 40 "A", 


le descripteur pointe vers 
l'adresse $95D6. Ici, on y trouve 
$28 (la longueur de la variable), 
suivi de 40 octets contenant $41 
('A"). 

+ Contrairement à l'Applesoft, 
TASC ne duplique pas les 
chaînes identiques ; l'instruction : 
20 B$ = ÀA$ 


crée un descripteur qui pointe 
également vers l'adresse $95D6. 


+ Une routine de nettoyage 
mémoire est intégrée dans TASC 
et appelée sous les mêmes 
conditions que l'Applesoft. Elle 
raffraîchit l'occupation des 
chaînes et réorganise les 
descripteurs. 


Ayant découvert votre revue par 
le numéro 21, je voudrais savoir 
comment sauvegarder, après les 
avoir saisi au clavier, les fichiers 
SET et FORMES4 du programme 
EDIGRAPH. 


J. BUTTANI, 68000 Colmar 


Deux instructions suffisent (elles 
peuvent être déduites des pages 
16-17) : 

BSAVE SET, A$3000, L$FOO 
BSAVE FORMES4, AS6000, LS2 
D5 


Ayant rentré le programme HGR 
DUMP pour Epson (Pom's 17), 
j'ai obtenu des résultat bizarres 
qui ne correspondent pas à ce que 
j'attendais. 


F.Cabanat, 75011 Paris 


Par omission, l'article ne précisait 
pas que le programme était 
destiné à fonctionner avec une 
carte d'interface parallèle 
compatible avec celle diffusée à 
l'origine par Apple-Seedrin. En 


particulier, il ne peut donc 
fonctionner sans modification 
avec une carte série. 


Si vous connaissez l'assembleur, 
les lignes 536 à 538 du 
programme source contiennent 
les instructions d'appel à la carte 
parallèle : boucle jusqu'à ce que 
l'imprimante soit prête, puis 
envoi de 8 bits simultanément. 


M'étant remis au Pascal, j'ai 
voulu utiliser les programmes en 
Pascal fournis sur les disquettes 
Pom's, après les avoir transférés 
à l'aide du programme BASPAC. 
Voici ce que j'ai constaté (mon 
équipement est classique : Apple 
Il+ et carte langage) : 


+ si on part d'une disquette 
Pascal qui contient déjà un ou 
plusieurs fichiers, le programme 
que l'on trouve après transfert n'a 
rien à voir avec le programme 
original mais semble être une 
partie tronquée d'un des 
programmes existants ; 


° en partant d'une disquette 
fraîchement initialisée et ne 
contenant aucun fichier, la date 
du directory est remplacée par des 
"222", ce qui n'est d'ailleurs pas 
gênant ; 

+ je n'ai pas réussi à transférer le 
programme POINTEURS du 
Pom's 18 ; je n'ai obtenu que des 
suites incohérentes d'octets, dont 
beaucoup de caractères de 
contrôle. 


André Pettelat, 75011 Paris 


Nous avons également constaté 
ce problème avec BASPAC lors 
de certaines conversions de 
fichiers, bien qu'il ne soit pas 
systématique. Lorsque BASPAC 
parvient à transférer un fichier 
avec succès sur une disquette déjà 
utilisée, la date du fichier est 
normalement la même que celle 
du fichier précédent du directory; 
en revanche, sur une disquette 
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fraîchement initialisée, la date est 
encodée de manière à donner un 
affichage "???" au catalogue. 


En cas de problème lors du 
transfert, il est donc préférable de 
le recommencer en utilisant une 
disquette Pascal dont le directory 
est vide. 


Enfin, le fichier POINTEURS 
contenu sur la disquette Pom's 18 
contenait par erreur le code objet 
et non le source. Vous le 
trouverez sur la disquette Pom's 
de ce numéro. 


Parmi vos anciens numéros, en 
existe-t-il un répondant au 
problème suivant : d'un côté un 
programme en Pascal, de l'autre 
des fichiers de données sur 
disquettes DOS 3.3. 


Comment puis-je convertir les 
fichiers pour qu'ils puissent être 
traités correctement par le 
programme en Pascal ? 


Jean Claude Decret, 33600 
Pessac 


Le programme BASPAC contenu 
sur toutes les disquettes des 
numéros de Pom's où se trouvent 
des programmes Pascal peut vous 
aider. 


Il faut néanmoins avoir, au 
préalable, converti vos fichiers de 
données (probablement sous 
format texte), en fichier de format 
binaire avec le bit de poids fort de 
chaque octet à zéro. Le 
programme Applesoft suivant en 
est une ébauche : 


10 D$ = CHR$(4) : À = 4096 
20 F1$ = "FICHIER.TEXTE" : 
F2$ = "FICHIER.BIN" 

30 PRINT D$ "OPEN" F1$ 

40 ONERR GOTO 110 

50 PRINT D$ "READ" F1$ 

60 INPUT AS$ 

65 IF A$ = "" THEN 95 

70 FOR I = 1 TO LEN(AS$) 

75 B = ASC(MIDS$S(A$,I,1)) : 
IF B > 128 THEN B = B - 
128 

80 POKE À, B 

90 A = A +1: 

95 POKE À, 13 


NEXT 
: A = À +1 
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100 GOTO 60 

110 PRINT D$ "CLOSE" F1$ 

120 PRINT D$ "BSAVE" F2$ " 
,A4096,L" À - 4096 


qu'il faudra adapter si vos 
fichiers texte sont trop gros pour 
être contenus dans un seul fichier 
binaire, s'ils contiennent des 
virgules ou sont à accès direct. 


Cher lecteur du Minimic sur 
Rance, votre lettre relative à un 
programme Pascal pour 
impression mathématique ne 
mentionne ni votre nom, ni le 
nom de la rue. 

Pouvez-vous prendre contact 
avec la rédaction ? 





Un lecteur (courrier des lecteurs 
du 21) cherchait à modifier la 
version américaine d'AppleWriter 
Il pour obtenir sur son 
imprimante le caractère «ç». Il 
suffit de modifier 5 octets pour 
réaliser le soulignement avec le 
caractère «‘». 

Ces 5 octets à modifier font partie 
du fichier OBJ.APWRT situés 
aux emplacements suivants : 


Piste 12, 

secteur OB, octet AC ; 
secteur OA, octet 12 ; 
secteur 09, octet A9 ; 
secteur 09, octet DC ; 
secteur 08, octet 01. 


vous devez à chaque fois trouver 
‘C9 DC’. 

Il faudra remplacer ces valeurs 
par ‘C9 E0’ avec votre éditeur de 
secteurs favori. 


J.-M. GUILBERT, Vaujours 


Merci pour cette solution. Doit-on 
ajouter qu'il est indispensable 
d'apporter ces modification sur 
une copie d'AppleWriter ? 


Plusieurs lecteurs utilisant COGO 
nous ont demandé que faire pour 
y apporter des modifications. 


Modifier COGO est possible mais 
pénible du fait de la lenteur de 
Pascal et de la faible capacité des 
disquettes. 


* Il faut 128Ko. Le //e avec carte 


Chat Mauve permet de travailler 
sur COGO 560, un //e avec une 
autre carte ou un //c ne permettent 
de travailler qu'avec COGO 280. 


* Vous devez utiliser le système 
APPLE.PASCAL 1.2, 64 Ko ou 
128 Ko, peu importe. 


* Vous devrez travailler sur une 
copie de APPLE2 et deux copies 
de COGO (560 ou 280 c'est 
selon). L'une jouera le rôle 
d'APPLEI, l'autre accueillera les 
versions modifiées. 


* En bootant votre disquette 
APPLE! et utilisant le FILER : 


. Supprimer de APPLE2: les 
fichiers SYSTEM. ASSEM- 
BLER, 6500. OPCODES, 
6500.ERROR et CRUN- 
CHER. 

. Copier tous les fichiers 
TEXT de COGO: sur 
APPLE2: et effacer de COGO: 
tous les fichiers de COGO 
(.TEXT, .CODE et exemple) 

. Copier sur COGO: les 
fichiers suivant de APPLE: 
SYSTEM.SYNTAX, 
SYSTEM.EDITOR, 
SYSTEM.FILER. 

. Cruncher COGO: et changer 
son nom en APPLEI: par 
exemple. 


* APPLE: contient le système 
APPLE 1.2 128 Ko utilisé et doit 
être maintenant booté, tandis que 
APPLE?: doit être mis dans le 
lecteur 2. 

* Il n'y a plus qu'à éditer et 
compiler COGO, puis le sauver 
avec le FILER sur la copie de 
COGO: destinée à accueillir les 
versions modifiées. 


A noter qu'il ne faut pas oublier, 
avant de compiler COGO 
560/280 : 
. soit de transférer EDIT 
COGO.CODE dans SYSTEM. 
LIBRARY en utilisant le 
programme LIBRARY de 
APPLE2 ; en effet, COGO 
utilise l'UNIT EDITION, qui 
est créé par EDIT- COGO. 
. soit de mettre dans COGO 
560/280.TEXT : 
USES. (C'APPLEZ-EDIT 
COGO.CODE*) EDITION; 


GG 
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Bon de commande 


Disquettes 


smash rnsnses (CR POMENT SN rss ne En 

nm orne (CR POMEN VS). rss A 

SR CO EE ET te (cf. Pom's n° 10) re 
DISK-MANAGER ........issssres (Cf Pomsn' 11) szszssess à ASOOÛE sas 
B'ASICTUNE nee ns ee (CES Romen 13) msssius A ISOOOR  sséoseerenne 
(CH POMSN 23) “sssssssss A DOUOOF  sssssmsssssen 


Échange: PE: 50m incite (CL POMSN PS) issus 14 OSOOÛE  issssironenenses 
ER EE (CR POMSMUIS) ss Sn nie 

ns -sp-eirciree (CF'Pom'ensl8) us rt RTE 

TRADE rs Teen (cf Pom'sn 19) 3:45: dé EesiTe 
MACASTUCES-narrirreiesmensnsse (cf Pomsn 21) miss À 20DO0R Hsscsssinenses 
P-FORMAT J{, P-POLICE ]J[................ (CH POoMSNTAL) ms À 2ODOOF hcsssssssssssessnnse 
(CE Poman 21) ..... à ISDOUF  ssssscosseensanses 


Recueils 


N°1, recueil des revues 1 à 4 .….........................................…. ......…. à 140,00 F 
Disquettes d'accompagnement 1 à 4 .…..........….............…. ........… à 200,00 F 
N°2, recueil des revues 5 à 8 ..…...................….................... ....... à 140,00F 
Disquettes d'accompagnement 5 à 8 .….…......…..….............…. .…...... à 200,00F 
N°3, recueil des revues 9 à 12 à 140,00 F 
Disquettes d'accompagnement 9 à 12... .......... à 200,00 seen 


Revues, disquettes 


Revues4 7 8 (n° 9 épuisé) ….. à 35,00F 
Revues 10 11 12 13 14 15 16 17 18 19 20 21 22 2324)... à A4OO0E 


Disquettes Apple II, //e, //c 
12 3. & 5 6: D € © AO ME D sms Où OOQUIR  ssésssssserssnsss 
13 14 15 16 17 18 19 20 21 22 23 24 


Disquettes Macintosh 
14/15/16 groupées 1ISOO0P ss. 


17 18 10 20 21 22 ST Où  nrns SOIOOE - man 
Mac ‘A... BODOE asso 


Abonnements Pour 6 numéros à partir du nL__] 


Abonnement à la revue seule DODOUER  hsssscssesnrrsiées 
Abonnement revue + disquettes Apple II, //e, /e SOOIOUR sms 
Abonnement revue + disquettes Macintosh... CODODR issue 


Total TTC : 
Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 


Envoyez ce bon et votre règlement à : EDITIONS MEV, 64 rue des Chantiers 78000 VERSAILLES 


nn nn nn sn snesnonennnnnsnnnessnssssssnsnsnesenonesnesneire nn sesesssssssssesensssseseesesee 


nn nn enens nn sense sense eeeesesesse 


Imprimerie Rosay, 94300 Vincennes, Imprimé en France. Dépot légal : mai 1986. Ne 3368 
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UTILISER 


Mac Astuces 450 FF — Multiplan 
pour Macintosh 440 FF — Le livre de 
250FF — Basic + 80 routines sur Jazz 220FF — 50 modèles Multiplan 
Apple 1195FF — Les ressources de l'Apple pour gérer sur Apple et IBM/PC 430FF — 
lc 95FF — Assembleur de l'Apple 420FF — Appleworks au travail 460 FF — 
Introduction à ProDOS sur Apple 85FF — Photographie sur Apple et Amstrad 450 FF. 
Système ProDOS sur Apple 


Meme de apaiol #08 — DES LIVRES POUR — 


PROGRAMMER 


Clefs pour Macintosch 450 FF — 
Basic Microsoft 2.0 sur Macintosh 


Apple, modems et serveurs . 402 programmes pour 
430FF — Clefs pour l'Apple lc CREER Apple 420FF — Super jeux 
et Ile 65CO2  445FF. Apple 420 FF. 


Programmation des jeux d'Arcade sur 
Apple I! 440FF — Apple, logique et 
systèmes experts 420FF — Création et 


animation graphique sur Apple 335 FF di, 
DEMANDER LE CATALOGUE GRATUIT à PS.I. Diffusion - B.P. 86 - 77402 LAGNY CEDEX 








